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MODULE setterm ( IDENT = ‘'Vv04-000', 
anne ADDRESSING_MODE (EXTERNAL = GENERAL)) = 
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This module implements the DCL command SET TERMINAL. 
ENVIRONMENT: 
VAX/VMS operating system, user mode 
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AUTHOR: Gerry Smith 21-Mar-1983 
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nly activate smg if we really need to. 
vO3-015 —MB0112 Ellen M. Batbouta 2-AUG-1984 
Place the IOSM_NOECHO modifier on the readprompt 
Q10 in module, INQUIRE_TYP This prevents the 
escape sequence for the VT 00 terminals be ng displayed 
on the screen on a SET TERMINAL/INQUIRE command. 


v03-014 JRLOOO03 John R. Lawson, Jr. 18-May-1984 15:18 
For reasons of speed, do not let the Linker resolve 
external references to the SMG (shareable image). 

SMG is only regy red when SET TERMINAL is issued, not 
for any other SET 
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command. Therefore, at the risk of 
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plowing down SET TERATBAL. other SET’s are sped up by 
Linking to and activating SMG only when necessary. 


v03-013 EMD0083 Ellen Mm. bysseault 12-Apr-1984 
lf /protocol is specified in the command string, 
don’t issue the warning message, /perm qualifier 
was mot specified. 


v03-012 STANSO}s Stanley Rabinowitz 25-Mar-1984 
Allow ‘“foreign’’ terminal capabilities LFF ith. GRE TLL and FRAME 
to set the corresponding terminal characteristics. 


v03-011 EMD0068 Ellen M. Dusseault 13-Mar-1984 
Add warning message to tell the user that the 
permanent characteristics will be used since 
the command issued did not contain the /perm 
qualifier and the user does not have a channel 
assigned to the terminal which was specified in 
the command string. 


vO3-010 EMD0061 Ellen M. Dusseault 88-Mar-1984 
Check to see if the terminal characteristic, regis, 
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75 


80 is available if the terminal is a pro or rainbow when 
+? processing the command set term/ing. 
4 v03-009 STANOCY9 Stanley Rabinowitz 4-Mar-1984 
4 Add support for “‘foreign’’ terminals. 
85 If the terminal device type is not known, 
+] cail the RTL TERMTABLE interface routines 
8 to see if it is defined there. If it is, 
88 then set up the terminal characteristics from 
4 the TERMTABLE information. 
4 Give symbolic name, data_bufsiz, to the size of the data_buffer. 
9 v03-008 EMD0051 Ellen M. Dusseault 28-Feb-1984 
96 Add support for SET TERMINAL/CNOJDEC_CRT=(1,2) to 
95 mplement new terminal characteristic, pec_¢ P 
38 Also a new device name, PRO_SERIES is introduced. 
98 4-Feb-1984 14:42 


v03-007 mMD0234 Neg Dumont : 
Add support for SET TERMINAL/PROTOCOL for switching terminal 
ports to and from asynch ddcmp decnet Lines. 


v03-006 MIRO300 MICHAEL I. ROSENBLUM 9-JAN-1984 
Fix problems that were encountered during field test 
1. SET TER/LOCAL should set NOECHO 
¢: SET TER/SPEED should clear autobaud 
- SET TER/INQUIRE should send out the normal ansi sequence 
n seven bit mode as well as 8 bit mode. 
4. SET TER/LOG SHOULD REPORT THE SPEED CORRECTLY 


v03-005 MIRO083 Michael I. Rosenblum esau 1963 
Reset terminal characteristics on the terminal Line if 
ee res Serer ne fails so not to leave the terminal in 
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TTERM 610. -1984 01:10: AX-11 Bliss-32 v4.0-742 Pa 3 S 
SEL886 NECESRc19BE CUSIBS98  UGUELOMMESsEYstaPaSS? wall it 
: 115 116 1! v03-004 M1R0071 Michael I. Ro Lup 22-Jul-1983 
3 139 11 i! Add code to inquire to parse , 18. quire sequences. 

a 17 1! add code to timeout all writes this w ti gone timeing 

3 113 1 : : problems when the terminal is contrei=se 

% 120 1! V03-003 GASO143 Gerry Smith 22-Jun-1983 

: : 1 ! : H Lower all non-syntax ERRORS to WARNINGs. 

: 1 j 1 § 1/ v03-002 nines 0035 mish get I Rosebnblum 27-Apr-1983 

3; 126 1244 1! support for VT200 series terminals and vT200 
s %29 125 1! los re sequences. Add support for multiple frame | 
3 : $ : $ ! : sizes, Dismissing parity errors. Fix /Log qualifier. 

: 4 8 1 8 ii v03-001 GASO117 a Smith 7-Apr-1983 

3 ; : 3 : If a terminal is set smut oBa D, also set the speed to 9600. 

: 181 131 1 ie. 


————————————_—__----- 
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vou 12286871382 93:99:58 tetiute sre SETTERM.832;1 ate (2) 
; 133 1 3 }} 

3 } ¢ : : ; Include files 

So 139 | LIBRARY 'SYSSLIBRARY:1 18"; ! VAX/VMS common definitions 
3 ; 1 ; EQUIRE ‘SRCS:SHOWDEF'; ' SHOW common definitions 
; 1 1! 

; ra 1 ! Define macros for the fields within each terminal block. These 

3 12 : also correspond to the fields in the SENSEMODE/SENSECHAR block. 

3 128 40 1 MACRO 

; 146 4) 1 term$b_class = 9. . . z. 

3 145 tg 1 termsb_type = 1, 0. 8. 9%. 

3 178 4 1 term$w_w dth = ¢- . 1 . he 

3; (16 44 1 term$b_page = 7, 0, 8, O2, 

3 108 45 1 term$i_seti = 4, 0, 32, 0%, 

3 14 re 1 term$|_set = g. * . i, 

; 139 47 1 term$\_clr = 12, 0, 32, 0%, 

3s 3 1 $8 1 term$\_clr = i. ° ° be 

a ¢ 49 1 term$\"rspnum = § - O. 32, O2, 

s ? 1 term$i_rspbik = 24, 0, 32, 0%; 

: 138 1: 

3 138 3g 1 ! The data that gets used by all the subroutines is more easily handled 
‘os 54 1! in Bliss if it is actually a vector of data. Then, thru a BIND, all 

3 6138 55 1! the separate names can be used to identify the various elements of the 
; 4159 8 1 ! vector. The length of the vector (in longwords) is given by the 

3 129 8 H : : literal data_bufsiz. 

: 16 ™ 0259 1 MACRO bind_data = 

3; i] 60 1 BIND 

3; 164 m 0261 1 tti_set = data_buffer(0 BITVECTOR(32), 

3 165 iI 3 $e 1 tti_clr = data_buffer(! BITVECTOR : 

3 166 m 0263 1 tte _set = data_buffer § BITVECTOR ° 

3 M0264 1 tt2_clr = data_buffer BITVECTOR ° 

; «168 0265 1 speed = data_buffer(4J, 

3 4 "0 $6 1 parity = data_buffer(5], 

; 170 0267 1 fill = data_buffer § ° 

et 4! m 0268 1 flags = data_buffer : yap oh oe: 

3 Ie ial 44 1 dev.desc = data_buffer(8]_ : SBBLOCK gsc8c_s_blnJ, 

3; i m 0270 1 info_block = data_buffer(10) : SBBLOCK(12), 

3 6976 M0271 1 index = data_buffer(15], 

3 is "0 i 1 chan = data_bufferl14] : WORD 

i 1% m Ogrs | deccrt_set = data_buffer([15J : BITVECTOR 33 . 

gs if m 0274 1 deccrt_clr = data_buffer 1 : BITVECTOR . 

3 178 fg : mname_desc = data_buffer(17] : SBBLOCKCdsc$c_s_binj; 2%; 

3 ' : 7 ' LITERAL 

; 1 ¢ 8 data_bufsiz = 19; ! Number of longwords in data_buffer. 

: 4 Se 

: : 5 § } : Define FLAGS bits 

: 188 Feng RH 0. 1. 0% ' Logging desired 

; set$v_lo = 0, 0, 1, OF, ' Logging desire 

; «189 1 setSv-perm 5 6: Ss Be ts : Permanent chars requested 
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; (1 1 set$v.odd = 0, 2, 1, 0%, ' Odd parity requested 

23 } set$v_even = 0, ¢: 1, 02, i ven parity reeuseted 

: } § : setév. ar - ° 3° \. :. hh ari f turned off 

: 194 i setivcr 8 6. 1! OF: i EREILL given 

3 £4 9 : setiv.s aoe = 0, 7, i. :. ary speed giyen 

; 2 vw =U. &. I. . . th change 

; 13% Be age Ee. if 1° OR: i Seles giie ekoreta 

: 199 96 1 setSvidismis= O°11; 1° OF, | Siemiss perityerrer 

3 97 «1 pat Stes) m= 1g. 1, O02, ! Dismiss parity turned off 
r 4 1 set$v_vt200 = 0,15, 1, 0%, ' yt200 series terminals 

: 4 : set$v_network=0,14, 1, 02; ! Set to set port to a decnet port 


<u | 


1 


atin 


F 10 
¥O4~600 1e-$ep-198e 12:09:00 Eetium SSaeSsetrenacasost tee 


Table of contents 


FORWARD ROUTINE 
setSterminal : NOVALUE 


! Main module of SET TERMINAL 
write timeout : NOVALUE, 10 


' Cancel active 

' Set a particular term t aL 

! Get definition from rep ue 
' Ask the Secatees what i 

' Collect values 

' Log all results 
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(acre ert i NOVALUE ; 
' 
External routines 


prem ROUT INE 
! init_term_table, 


ss 
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Get address of data block from 
TERMTABLE that describes this kind 
of termina 

Get data Tren TERMTABLE definition 
Delete virtual aonary used by 
TERMTABLE suppor 

Switch to a 1 line 

Switch to a go ol, DDCMP. port 
Append ASCI! s ngs 

Convert ASCII to binary 

Get value from CL 

See if qualifier is present 
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! smg$get_term_data, 
!  smg$del"term_table, 


switch_to_terminal, 
suitch. to_ddcmp, 
str$appen 

Libseut dto, 
cli$get_ value, 
cli$present; 


Mechanisms for Post-activation Linking to SMG 


SSMGSGET~ “TERME DATA: long; 


1 
: External references 


EXTERNAL ; ; 
protocol$_none : vector, ! Protocol type “‘NONE’’ descriptor 
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v8 macro ! So I don't need to change every occurrence in the program 
4 3 SMGSINIT_TERM_TABLE = ,' -SSMGSINIT_TERM_TABLE ) %, 
4 3 SMGSDEL_TERM_TABLE = .SSMGSINIT TERM TAB oe )%, 
¢: r¢ SMGSGET-TERM_DATA = (f . SSMGSGET_TERM RORTA’) z; 
? ri} external routine ! To do the actual Linking 
; rt} LIBSF IND_IMAGE_SYMBOL ; 
50 £8 own ! To hold the addresses of the actual routines 
re SSMGSINIT_TERM_TABLE, 
4 SSMGSDEL_TERM_TABLE, 
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‘Device TYPE". 
C_CRT2") 


BIND 
SD_COMMA = SDESCRIPTOR(',"); 


Declare some shared messages 


SSHR_MSGDEF (SET.119, LOCAL, 


nvquaval, error)); 


Declare literals defined elsewhere 


EXTERNAL LITERAL 
term$_num, 

terms. ttset_num, 
term ~ttclee num, 
term$_tt2set_num, 
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! Protocol type ‘DDCMP’’ descriptor 
! Table of known terminals 
— . their names 


and th r a (devdepend) 
A, nver 

r bitmasks 
and the 


their Nea (devdepnd2) 
vee keywords 
op edly t stri 
ector of r ouse strings 
"Odd" descriptor 

‘Even’’ descriptor 

*"‘None’’ descriptor 

Vector of speed descriptors 


BIND ZNAME('SD_*,A) = SDESCRIPTOR(A)2; 


‘Descriptor of a comma 


Number of known terminal 

Number of DEVDEPEND bits/keywords 
Number of inverted bits/keywords 
Number of DEVDEPND2 bits/keywords 
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term$_tt2clr_num, 
term =spdnum, 


term$_reqn 
term$_vk 0 
term$_ vt100, 


term$_ vtl Ne 
term$_vt102, 
term$_vt105, 
term$_ vtl ° 
term$_vt131, 
term$_vti32, 
term$_ a} ° 
term$_vt 36 
term$_vt2 6 series, 
term$_pro_series, 
term$_fti, 
term$_ft8, 


ctig- absent, 
cli$- “negated, 
cli$_present; 
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Number of inverted bits/keywords 
aoe a of Sorminet aiere eds 

pees oth fort the ay family 
of non-compatible terminals 


“ Lunkers 

00 series terminals 

Pro series terminals 

End of for of ‘terminal terminals 
of foreign terminals 

checen terminal’’ type 

Terminal p> theo = BE set 

Error modifying device 

Terminal type unknown 

Permanent qualifier not specified 

Invalid device type 

Qualifier absent 

Qualifier explicitly negated 

Qualifier explicit i; present 
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1b-5e -1984 01:10: AX-11 Bliss-32 V4.0-742 
1 =300- 1382 93:49:98 tet iut sre SETTERM.B32;1 
1 GLOBAL ROUTINE set$terminal : NOVALUE = 
BEGIN 
‘ee 


i Functional description 


This is the routine for the SET TERMINAL command. It is called 
from the SET command processor, and sets the terminal characteristics. 
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; ; 

rf i 

4 i 

; 

; ! Inputs 

; : None 

; i Outputs 

; None 

: — 

; 5 LOCAL 

; 46 status, ! Status return 

; 6 set_length, ! Address of change length strin 

; Sie §  devabuther SVEEVORCR6.ovren, | Boviterburfarice ‘nar fron 6e10v 
; v_bu : , ! Dev 

; 9 0464 data_buffer : VECTORCdata_bufsiz] ! Buffer to hold much data 
: 370 0465 INITIAL (REP data_bufsiz OF (0)), ! initially clear 

: 373 ce? josbu: VECTORES WORD], i T70 status block. 

; o bees default_device : long initial (0) , lag oot fe 1 device not specified 
; ! use defau 

3 oro 029 dvi_list2 : SITMLST_DECL(ITEMS=1) , ! item List for ref count a 
; z pert eee: : long initial (0) ; ! reference count for terminal device 
; 378 0678 timeout = UPLIT(-5*10*1000*1000,-1); ! 5 seconds 

: 380 bers 8 

; 3 ners ; Bind all DATA_BUFFER to nice normal names 

; Hy $678 bind_data; 

; «384 0479 

3 33s 480 

; 386 481 : 

; 4 rt {1 : Collect the name of the device. 

: 89 be Sinit_dyndesc(dev_desc); ! Make the descriptor dynamic 

; 14 be IF NOT ol tSget_voluetSAsc ie pevice®. ! Get the device name 

; ev_desc 

3 38 8 THEN 

: 394 9 BEGIN 

3 (3S default_device = 1 ; ! Use default device 

s Hy] 91 dev_desc(dsc$w_length]_= ZCHARCOUNT(*SYSSCOMMAND*); 

; 4 dev-desc(dsc$a_pointer) = UPLIT BYTE(’SYSSCOMMAND'S; 

: bs rh END; 

; 400 95 2! 

; 401 oes Use GETDVI to determine the real device name. 
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SETTERM tb-se -1984 :10: AX-11 Bliss-32 v4.0-742 
vOe-600 1e-8eb-19be 2:09:50 FekTure SaeSsesrennca soc 
404 99 LOCAL 
405 lass 
4 dvi_list : SITMLST_DECL(ITEMS = 3); 
4 P § SITMLST_INITCITMLST = dv ist, 
4 ke (ITMCOD = dvT$_devclass, 
409 Pp BUFADR = ¢ oss ° 
41 P 5 (ITMCOD = dvi$_devchar, 
41 P BUFADR = dev_char), 
1 Pp (ITMCOD = dvi$_devnam, 
1 P 05 BUFADR = gev buffer, 
1 P 05 BUFSIZ = ZALCOCATION(dev_buffer), 
1 : Mes = gev.de c)); 
1 P status = SGETDVIWCITMLST = dvi_List, 
1 P 05 DEV = dev_desc, 
1 5 1088 = iosb); 
1 If .status 
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THEN status = .iosb(0); 
IF status 
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BEGIN 

SIGNAL (set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
» dev_desc, .status); 

oe rues 


LSE 
BEGIN 
dev_desc(dsc$w_length] = -dov donc (dsc Sy. length) - 1; 


dev_desc(dsc$a_pointer]) = dev_buffer + 
ir egcsess NEQ dc$_term 
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BEGIN 
SIGNAL(set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
ev. aesc, 
cli$_ivdevtype): 


reer 
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RETURN; 
END; 
440 END; 
441 END; 
44 
44 : 
rr Z : Assign a channel to the device. 
44 P 054 IF NOT (status = SASSIGN(DEVNAM = dev_desc, 
&&q 4 CHAN = chan)) 
44 4 
44 4 BEGIN : 
450 4 SIGNAL (set$_writeerr AND NOT stsSm_severity OR sts$k_warning, 
451 4 » dev_desc, .status); 
$36 4 RETURN; 
45 4 END; 
re $ 
$36 5 ! If /PROTOCOL was specified then switch to the type of port requested. 
45 5 ! If a terminal port was requested =NONE then allow other terminal 
458 5 ! characteristics to be set. If Aoynch DOCMP port was request then 
459 5 ! only allow the switch to node all other qualifiers are ignored. The 
460 5 ! user must have OPERATOR privilege in order to make the switch. The 
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! port being switched can not have a non-zero reference count and 
! the Asynch DDOCMP driver code must be loaded into the sy::tem. 
IF cli$present(SD_PROTOCOL) 
THEN 
BEGIN 
LOCAL 


desc : SBBLOCK Cdsc$c_s pind. 
process _privs : S$SBBLOCKE 
getipi Tist : SITMLST_DECL(ITEMS=1); 
SITALST_INITCITMLST=getjpi_list, 
TMCOD = jpiS_procpriv,BUFADR=process_privs)); 
SINIT_DYNDESC (desc); 


! Assume that the port isn't going to become a decnet port 
flagsCset$v_network] = 0; 


status = SGETJPI(CITMLST=getjpi_list); 
IF cs sesetue 


A 
_ 


BEGIN 
SIGNAL (set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 


END; 
IF NOT .process_privs(prv$v_oper] 
THEN 


BEGIN 
SIGNAL(set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
a T, dev_desc, ss$_nopriv); 


END; 
IF cli$get_value(SD_PROTOCOL, desc) 
THEN 


BEGIN 

LOCAL arglist : vector (2); 

IF CHSEQL (.descldsc$w_length], .desc(dsc$a_pointer], 
a -desc(dsc$w_length], .protocol$_nonel1]) 


an; 
SCMKRNL(ROUTIN = switch to_terminal, 
ARGLST = arglis€)) 


BEGIN 
SIGNAL (set$_writeerr AND NCT sts$m_severity 

R sts$k_warning,1, dev_desc, .status); 
pe uals 


' Clear the network bit in dev char. Now that the device 
' ig a terminal again we can allow the remainder 
! of the set to happen. 


dev_char(dev$v_net) = 0; 
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END 
ELSE 
BEGIN 


! Switch to a decnet device only after the terminal 
i characteristics have been updated to the ones 
i the user specified on the command Line. 


IF CHSEQL (. odeschdectu. Length], .desc(dsc$a_pointe i. 
-descl(dsc$w_length], .protocol$_ddcmpl1 


N 
gsCset$v_network] = 1; 


IN 
NAL(set$_writeerr AND NOT sts$m_severity 
OR Sts$k geerninte 1, dev_desc, 
gets invqua 
désc. SD “PROTOCOL): 
RETURN; 
END 
END 
END 


BEGIN 

SIGNAL(set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
» Gev_desc, .status); 

RETURN; 

END 


! If the NET bit is set in DEV_CHAR then this is a DECNET terminal port 
i and allowing the set continue can produce strange results. 


If .dev_charCdev$v_net] 
THEN 


BEGIN 

SIGNAL (set$_writeerr AND NOT sts$Sm_severity OR sts$k_warning, 
. Gdev_desc, ss$_termnetdev); 

Agee 


! 
Determine if this is /PERM or just normal. See if logging is required. 


flags set$v_ pera) - cliSpresent(ZASCID. 1. mma ); 
lagsCset$v_ tog) = cli$present(ZASCID ‘LOG') 


fl 

: Genorose a warning message under the following conditions: 

i - &@ specific tere nal device was specified, 

i - the perm qual ctor is absent from the command, 

: . the refcount is 1 thts routine aoe the only channel), 

i 4. the protocol qualifer is absent from the command 

i The warning message will tell the user that the permanent characteristics 
i will be used after this routine deassigns its channel to the terminal 

i (ref count will drop to 0). Therefore it is possible that his efforts to 
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t? , ! modify characteristics will be fruitless . 
1$ 7 SITMLST_INIT( Abe = dvi_list2,( ITMCOD = dvi$_refcnt, BUFADR = refcount ); 
4 u status A. SGETDVIW ( ITMLST™= dv “List, DEVNAM=dev desc, jiosb = iosb) ; 
Ss 
675 THEN status = .iosb{0); 
1 8 If NOT .status 
; 7 N 
a BEGIN 
7 SIGNAL (set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
5 0 » dév_desc, .status); 
1 RETURN; 
§ END 
ELSE 
8&9 3 BEGI 


IF (.refcount EQL 1) 
( NOT default device ) 
( WOF , flagelsetSv_pera) ) 
( NOT cli$present(SD_PROTOCOL) ) 


BSELSSLENVLS 


' 

i 

' 
a 
f 
' 

i See if a specific terminal type was specified. If an error, then it has 
already been signaled, and we should just go away. 

IF NOT get term_type(data_buf fer) 

THEN RETURN; 


& 
Le 


SSSSIS 
SSEES 
ooono 
ms 
RIPIPIMPIPIPOPINIPNINIPININI EAN HIAIPIPIPIPINPIPINPIPINININININPININI WF HEWES III AIIILPnonononono9ngd 


THEN 
a SIGNAL( set$_noperm AND NOT sts$m_severity OR sts$k_warning ) ; 
' 
06 Get the characteristics 
lacie = WC CHAN = .c 
P 0698 $a10 ‘< AN han 
04 P 0699 UNC = CF wil yageesetsy perm) 
605 © 3700 sensechar 
P 0701 eLse io$_sensemode), 
60 P 14.4 10SB = iosb, 
608 P fi P1 = info block, 
609 7 P2 = 12); 
610 0705 IF .status 
611 3708 THEN status = 2 tosbl0): 
oi¢ 70 IF as -Statu 
Sn i ieee 
615 7 SIGNAL (set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
oi6 07 . dév_desc, .status); 
61 7 RETURN; 
3 nn st hs 
? ! zero the parity flags and fill characteristics. 
6 7 rity = 0; 
6 : 7 tl = 0; 
624 7 
sO 
$59 : 
628 7 
629 7 
630 7 
631 07 
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yo4~000 1e-88b=4882 93:08:98 | Heat Obhessze ean S52, 
3 6 727 ' 
3; 6 4 7 8 i Get individual qualifiers. If an error occurred, then it has already been 
: ? ¢ 4 3 signaled and we should just return. 
; 6 g 1 if NOT feta’ values (data_buf fer) 
: 638 7 5 If .fla tagstsersv ! If width chenged and this 
; 639 734 a 4 ian K into. ¢ Leshtnoradl s tresv. deccrt] ' and it's a D 
: 640 735 HEN” nfo_blocklterm$w rwidthy ah ! If wide ecgereen 
; 641 7 $ ! set Length to 
; 64 7 ENBEGI ! and fix page lenaet 
3 ee 7 4 set aeneth : A qt BYTE (27,°C?3h"); 
; 7 IF RO ert nfo blockLfernét tea), tt2$v_avo] 
; ot? mo met Infor block term$b_page 
: ges ot} ' if nerren. set 
3; 648 74 BEGIN ! Length 0 
; 649 744 set areie, : A rei! BYTE (27, ‘C23L"); i ge adjust page 
; 650 745 IF AQ crt nfo blockL terns t 5082), tt2$v_ avo 
3 $3) Bree THEN infor Block term$Sb_page] = 24; 
an 
> 655 0750 
3 $26 ores Now set the stuff one requested by the user 
; 658 P 0738 Status = SQIOW(CHAN = 
; 659 P 0754 FUNC = cir aftagsCsersu. perm) 
; 660 P 0755 THEN io$_setchar 
3 $67 . 0756 rose Lot 9 io$-setmode), 
° = 
: $0 P 0758 Pi = into. block, 
: Ses P o7e0 : i ee 
3 = .speed, 
: 666 P 0761 ax oo Sf. 
: 88s ON Ow con orn 
3 sta 
3 669 he: 2 THEN stotus = eek leat 
; 670 765 IF .status EQL ss$ ncompat 
; 671 706 THEN SIGNAL(.status); 
3 ors 4 U4 T .status 
> 674 769 Begin 
3; 675 770 95 SIGNAL (set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
3 676 771 . dev_desc, .status); 
: og — 
3 nd; 
3 ers 774 
3 o80 ae wow check the flag and switch to a decnet port if the user requested to 
e . [e) oO. 
; 68 77 
3 o8s ve IF iment network] 
> 685 ? 
s ¢ 7 LOCAL aoatist : vector([2); 
; @ 7 ; argl ste .2 
; 688 07 arglist(! chan; 
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IF NOT (STATUS = SCRKRNL(ROUTIN = switch, to_ddcmp, 

es ARGLST . arglis€)) 


BEGIN 
SIGNAL (set$S_writeerr AND NOT sts$m_severity 
RETURN OR Sts$k_warning,1, dev_desc, .status); 


i 
| 
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i Now to set the characteristics. First check to see if, because the 
7 width has changed, we need to fix the screen. Then set the explicit stuff. 


no” “88 0CK $Sv_width) ! If width changed and this 
LOCKLinfo_blockCterm$l_set2], tt2$v_deccrt) ! and it's a DEC crt 


NEN BEGIN 
sarah vy}! «phe = timeout, ! Set timeout timer going 
TADR = write timeout, 
REQIDT = .chanJ; 


status = ema + 3 


SELLS SS 


chan, 
io$_writevblk, 
P set_length, 
P2 e 
10SB = iosb); 
ee = .chan); ! Cancel the timer 


sta 
THEN if “Fosbl0) NEQ 0 THEN status = .iosb(0); 
fon Status 


oe te a a et 
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BEGIN 

SIGNAL(set$_writeerr AND NOT sts$m_severity OR sts$k_warning, 
» dév_desc, .status); 

RETURN; 

END; 


IF Bi ocec into. block(term$l_set2],tt2$v_deccrt 
(,info_blockCterm$b_typé] EQL .term$_table(term$_vt52, term$b_type]) 


BEGIN 
LOCAL set_kpstate; 
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P SSETIMR(DAYTIM = timeout, ! Set timeout timer going 

Pp ASTADR = write_timeout, 
ras REQIDT = .chanJ; 
40 P Status = SQJOW(CHAN = .chan, 
oe p | we UTE MBAREERLE in o.block{termS{ set21,tt28 keypad) 

= . c re set ap a 

74 P 0838 THEN UPLIT B 1e-P59° rts ELSE UPLIT BYTE (07, °9°)), 
744 p 9 = 4 
745 0 TésB osb); 


: INFO#250 L1:0527 
; Referenced LOCAL symbol ELASS is probably not initialized 
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3 Ht ; Teecstatus = .chan); ! Cancel the timer 

: rt 4 TwelIF vi ° “Fosbt02 NEQ 0 THEN status = .iosb{0); 

3 f 5 .Status 

he 4 BEGIN 

oS 2 4 ee writeerr AND NOT sts$m_severity OR sts$k_warning, 

; 756 4 dev_desc, .status); 

; 755 4 RETURN; 

3; 7 4 END 

:; 7 ve: 

Te : IF Lags(set$v_vt200) 

. 2 4 THEN 
; 760 5 pes! 
; 761 P 23 SETIMR(DAYTIM = timeout, ! Set timeout timer going 
; 76 P 085 ASTADR = write_timeout, 

; 76 38 REQIDT = .chanJ; 

3; 764 5 

3; 765 P 0860 status = SQJOW(CHAN = 

3 £68 P 0861 FUNC = iss ouritevotk 

: 76 P O86¢ Pl = uplit byte (27,"C62"p',27,° F"), 

3; 768 F 8 P2 

3 q H : 10SB = josb); 

3 777i 8 $8 SCANTIM(REQIDT = .chan); ' Cancel the timer 

HB te Bae END; 

3; 77 5e8 : - flagsCset$v_log] 

3; 774 086 THEN Log_ results (data buffer); 

3; 775 0870 

; ore 0871 RETURN; 

3; 77 0872 
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Bo9p0009" dooce “MAIS <ADDRESS“P.AAJ : 
68 546 46 & c P.AAL: .ASCII \WIDTH\ : 
BLKB 
60900006" . 4 SOD RESS P.AAL : 
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StH. HSE Po AIR bs ay , 
4C 46C 49 46 46 4€ P.AAP: ASCII \LFFILL\ : 
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SD_NO= P.AAU 
SD-DEVICE_TYPE= P.AA 
SD-DEC_CRT2= P.AAY 
SD" COMMA= 5 
TIMEOUT= 
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aaa $4 9E i MOVAB 
6 0000" CF 9€ 000 MOVAB 
E FF4C E 9E 0002A MOV 
54 AE ooco. = C6 004¢ F 28 Q002F movC 
5 D4 000 CLRL 
8 AE D4 QO03A CLRL 
74 AE O20E0000 8F DO B22 MOVL 
78 AE 04 00045 CLAL 
74 «=AE «OOF 00048 PUSHAB 
011C 6 9F 00048 PUSHAB 
000000006 00 3 4 O04F CALLS 
OD E8 00056 BLBS 
55 01 00 00 MO 
74 «AE 08 00 
78 of 0124 C6 0 
5 C AE YE 00066 18: MOVAB 
8 00040004 8F 3 Q06A MOVL 
0 3 — 90071 MOVAB 
D4 00074 CLRL 


00020004 F 00 
0 04 


0 00200014 F 00 4 3 MOV 
C AD 9E A MOVAB 
4 af E 00 MOVAB 
§ 4 0009 CLRL 
E /7C 00094 CLRQ 
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50 AE OF PUSHAB 
1¢ AE OF PUSHAB 
CO AD OF 
C RQ 
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000000006 . i cB PUSHL #CLIS_IVDEVTYPE + 0530 
$ C 28: CLRQ  =(SP) t 0542 
og AD 3 00D PUSHAB CHAN : } 
CO AD 9F 0000 PUSHAB Est : 
000000006 4 FB 0000 CALLS fi, SYSEASSIGN ; 
4 0 DO 000DF MOVL RO, STA : 
D 4 €9 OO0E BLBC pins. 3 
6 DDG 4: PUSHL + 0559 
68 1 re DOOE CALLS }. CLISPRESENT : 
0 0 DOOEA BLBS : 
50 00RP dE boorD 38 SOVAB GETJPI_LIST <fsiineunere : 0567 
80 02040004 &F 5 tt MOVL Hire $$1TMBLKPTR)+ : 
0 24 AE — 000FB MOV PROCESS PRIV ie ($$ITMBLKPTR)*+ : 
8 DOF CLROQ ($81 THEEKP : : 
2c AE 0200099 8F DO 0 101 MOVL # #34471936, "Desc : 0568 i 
AE D4 001 CLRL DESC+4 ; ‘ 
71 AE 40 BF 8A 0010C BICB2 #64, FLAGS+1 : 0572 i 
— 7C 00111 CLRQ. = (SP) : 0574 i 
7E D4 d0113 CLRL = (SP) : : 
20 AE 9F 0011 PUSHAB GETJPI_LIST ; i 
7E C 00118 CLROQ -(SP) 3 { 
43 D4 OOTIA CLRL -(SP) Z i 
000000006 90 FB dot CALLS #7, SYS$GETUPI ; : 
4 0 dO 001 MOVL RO, STATUS ; : 
19 4 €9 00126 4$: BLBC STATUS, 7$ : 0575. 
05 26 «AE 2 £0 00129 BBS ae PROCESS_PRIVS+2, 6$ ; 0582 
4 DD 001 PUSHL #36 : 058 ; 
028— 31 00130 S$: BRW 35$ : : 
2c «AE «OOF 00133 68: PUSHAB DESC : 0589 ; 
DD 001 PUSHL R ; : 
000000006 00 FB 01 CALLS ‘ P CLISGET_VALUE : : 
4 013F BLBS 3 i 
027A 31 bie8 7$: BRW 3 | ; 
50 000000006 00 9 145 8$: MOVL. PROTOCOL$_NONE+4, RO : 0594. ‘ 
60 30 BE 2c AE O14¢ CMP CS DESC, aDESC+4, (RO) : 0593. ‘ 
OC «(AE 53 154 MOVL #1, ARGLIST : 0597 | : 
10 AE 8 AD 3C 00158 MOVZ2WL CHAN ARGLIST#4 : 0598 ‘ 
C AE 9F 00150 PUSHAB ARGL : 0600 ‘ 
000000006 9F 00160 PUSHAB SWITCH TO_TERMINAL F i 
000000006 90 F 166 CALLS #2, SYSSCAKRNL : 
4 dO 001 MOVL RO. STATUS ; 
CF 4 1 BLBC 3} Tus, 7$ 3 ; 
05 AE A 7 Bice2 . DEV_CHAR+1 ; 0612 i 
50 000000906 179 9$: MOVL. PROTOCOLS _DDCMP+4, RO : doce 
60 30 BE C At cMPCS p s¢. adesc+4, (RO) : 0621 | 
71 AE 40 i 8 1 BISB2 #64, FLAGS+1 ; 9625 ‘ 
C 1 BRB 11$ > 061 
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vou~000 ergeen13be 93:09:58 | ear Re see ream casses ee 
56 DD OO18F 108: PUSHL R6 3 0629 
a ee : 
0077132A Rf bb 1 PUSHL #7803690 : 
CO AD 9F 0019C PUSHAB DEVDESC : 
1 OO 19F PUSHL ri s 
00000000" 8F DD 1A} PUSHL #<SET$_WRITEERRE-8> + 0630 
9 7 §B OOIA CALLS #7, LIBSSIGNAL ; 
04 OO1AA RET + 0628 
08 0S AE 5 €1 O01AB 11$: BC #5, DEV_CHAR+1, 128 + 0648 | 
7E 228c =6BF 6OO3C:«001B MOVZWL #8844, =(SP) + 0651 
0209 31 001B BRW 35$ : 
013¢ C6 9F 00188 12$: | PUSHAB P.ABH + 0659 
é 1 re o1BC CALLS #1, CL ISPRESENT : 
70 AE 01 1 0 FO 001BF INSV RO, #1, #1, FLAGS ; | 
01468 (6 OF O1¢3 PUSHAB P.ABJ + 0660. 
68 1 FB 1€9 CALLS #i, CL ISPRESENT : | 
70 AE 01 90 0 F Oi¢¢ INSV RO, #0, #1, FLAGS : 
34 AE i 01D MOVAB bv} Liste, SSITMBLKPTR ; 0672. 
80 001E0004 8F DO 00106 MOVL #1986084, (SSITMBLKPTR)+ : 
80 08 AE 9€ 00100 MOVAB REFCOUNT. (S$$ITMBLKPTR)+ : 
8 7C OO1E1 CLRQ  ($SITMBLKPTR)+ : 
— 7C¢ IES CLRQ  =(SP) + 0673 
7E D4 OO1E CLRL =s_ = (SP) : 
50 AE 9F OO1E7 PUSHAB 10SB ; 
44 AE OF OOIEA PUSHAB DVI_LIST2 : 
CO AD 9F OO1ED PUSHAB DEV~DESC F 
43 7C 001F0 CLRO —_ = (SP) ; 
000000006 00 FB 001F2 CALLS #8, SYSSGETDVIW ; 
24 0 D OoiF9 MOVL RO. STATUS : 
2 4 £9 O1FC BLBC STATUS, 16$ + 0674 | 
$4 44 AE 3C OOIFF MOVZWL 10SB, STATUS ; 0675, 
48 54 €9 00203 BLBC STATUS, 16$ : 0676. 
01 08 AE 01 00206 CMPL REFCOUNT, #1 : 0685 | 
19 12 00208 BNEG : | 
16 55 €8 0020C BLBS § DEFAULT_DEVICE, 13$ > 0687 | 
1 70 AE gi EO 0020F BBS #i, FLAGS, 13$ + 0689 | 
6 OD 00214 PUSHL : 0691 | 
68 gf fe 0216 CALLS #1, CLISPRESENT HY 
09 0 € 19 BLBS ; 
00000000" 8F DD 0021 PUSHL #<SET$_NOPERM&-8> > 0693 | 
69 91 FB 00 CALLS #1, LIBSSIGNAL 3 
E 7C 00205 138: CLRO. 0 = (§P) : 0704 _ 
7E 7C¢ CLRQ = = (SP) ; 
0C DD 9 PUSHL #1 : 
C8 AD OF B PUSHAB INFO BLOCK : 
7E 7C CLRQ 9 (SPT ; 
64 AE OF PUSHAB 10SB : 
04 BC AD 01 €1 BBC #1, FLAGS, 14$ ; 
1B DD 00 PUSHL #2? ; 
9 11 0 A BRB 15$ ; 
po C 14$: PUSHL #39 ; 
7E p8 AD 3¢ 15$:  MOVZWL CHAN, -(SP) ; 
7E 04 00204 CLRL (SP ; 
7 ¢ F 4 CALLS #12, SYS$Q10W ; 
4 D 47 MOVL RO : 
04 4 € 4A BLBC STATUS, 16$ F 


11 
SETTERM hese -1984 01:10: AX-11 Bliss-32 v4.0-742 Pa 2 
y54~b00 12-808-1 3b 93:39:98 CLIUTL.SRCJSETTERM.B32;1 ~ Bid 
4 44 AE 3 40 MOVZWL 10SB, STATUS : 07 
33 54 8 1 16$:  ®BLBS rats, 73 : 7 
0168 4 BRW 4$ : 
$8 AE 7C 7 17$:  CLRQ PARITY + 0717 
4 AF OF A PUSHAB DATA_BUFFER + 0724 
0000v cf 9 FB CALLS #1, GET_TERM_TYPE : 
8 0 : 4 BLEC—OséaR : 
54 AF F 0026 PUSHAB DATA BUFFER : 0731 
0000Vv cf : Fe CALLS #1, GET VALUES : 
1 0 Fs 6 18$: BLE RO, 19$ : | 
30 71 AE €9 00271 198: BLBC FLAGS+1, 21$ : 73 
28 D3 AD E1 7 BBC #5, INFO_BLOCK+11, 21$ + 0734) 
50 D3. AD , ef $ 7A EXTZV . ’ 4 INFO_BLOCK+11, RO ; 0739. 
0050 &F 7E AE Bf 0 53 MPW NFO_BLOCK+2, #80 : 0735) 
OE 18 00 BLEQU 20$ : 
. 0150 £6 3 0 P.ABL, SET_LENGTH + 0738) 
1 f 0 BLBC OséaR > 0739) 
CF AD E 90 0029 MOVB #14, INFO_BLOCK+7 + 0740. 
€ 11 0029 BRB 21$ + 0735 
52 0155 £6 43 0299 208: MOVAB P.ABM, SET_LENGTH + 0744 
04 0 029E BLBC ~—E—sWwRO, 218 + 0745 
CF AD 18 90 002A1 MOVB #24, INFO_BLOCK+7 > 0746) 
7E D4 O02A5 218: CLRL = = (SP) : 0762. 
6C AE DD 002A7 PUSHL PARITY : 
74 AE DD OO2AA PUSHL FIL : | 
70 AE DD 002AD PUSHL SPEED F | 
OC DD 00280 PUSHL : 
C8 AD OOF 0028 PUSHAB INFO_BLOCK : 
7E 7C 0028 CLRQ = = (SPT : | 
64 AE 9F 0028 PUSHAB 10SB ; 
04 BC AD 01 €1 OO02BA C #1, FLAGS, 22$ ; 
1A DD 002BF PUSHL #26 ; 
02 11 002C1 BRB 23$ 3 
23 DD 00 C3 28: PUSHL #35 3 | 
7E D8 AD 3¢ 00 C5 23$:  MOVZWL CHAN, -(SP) ; | 
7E D4 00209 CLRL oe : 
7 € FB 002CB CALLS #12, SYS$QIOW : 
4 6 pO 00 ce MOVL RO, STATUS ; 
04 4 ; 020 LBC STATUS, 24$ > 0763 | 
54 44 AE 3C 00204 MOVZWL 10SB, STATUS + 0764 
00000699 = &F 34 pi 0 D8 248 cHPL TATUS, #1689 : 0765 
4 oD 0 £1 PUSHL TUS : 0766, 
69 1 FB £3 CALLS #1 L188 GNAL : 
6F 4 €9 00 EG 25$ BLBC STATUS : 0767 
20 71 AE 6 €1 O02 BBC 6, FLAGS+1, 26$ : 0778 | 
¢ AE 1 00 002E MOVL #1, ARGLIS : 18e 
0 AE 8 AD 3C OOF MOVZWL CHAN, ARGLIST+4 ; 0783 | 
C AE F OOF PUSHAB ARGLIST : 0785 
000000006 OF OOOFA PUSHAB SWITCH TO _DDCMP ; 
000000006 90 : F CALLS #2, SYSSCAKRNL ; | 
4 D MOVL R STATUS : | 
48 4 F A BLBC STATUS, 27% : | 
4 RET > 0789 | 
49 71 AE €9 OO30E 268:  BLBC  FLAGS+1, 28$ : 0799 | 


11 
-$ep-1984 01:10: AX-11 Bliss-32 V4.0-742 Page 23 
serTERe 1$oSeort9se 1:19:08 ARCH BL te8=52 40-742, é 
#5, INFO_BLOCK+11, 29$ : 0800. 
-y ae 83 Ge $b815 sec zuL | CHAN EN ECSeD : Oboe. 
oBby cf 9F 00318 PUSHAB WRITE TIMEOUT : | 
gf C €6 9F 0031 PUSHAB TIMEOUT : 

ft Pe ; athe #6. SYSSSETIMR : 
= o re CLRO 20 = §p) : 0812 

7E 7¢ A CLRQ ss =( SP) : 

E DD C PUSHL #5 : 

53 D PUSHL SET_LENGTH ; | 

E a CLRQ. = SB) ; | 
64 AE OOF PUSHAB 10SB ; | 

f D PUSHL #4 : | 

7E D8 AD Mg 0 mOVZUL CHAN -(SP) : | 
7 if eS 0330 CALLS #12, SYS$Q10W : | 
’ 30 00 5 ‘3 CURE —_—" + 0814. 
HAN, =(SP) : 
3 =. = Bc O328 tte? SYSSCANTIN : 
70 9¢ 6 034¢ BLBC STATUS, 34$ ; 0815) 
44 AE 83 0 af TST Os ; 0816 | 
54 44 ee i bee MOVZWL 10SB, STATUS F 
AD 36 34 ae 388: Bae. 35) Veto peocke11 30$ : $825 
<4 oo0000bb« 00 7D AE 5 00360 29$:  CMPB INFO_BLOCK*1, <TERMS _TABLE+<<TERMS_V152#28>~; —_ 
Q 4 : | 
7E D8 0D i So8eR 30$: MOVE WL aHAN -(SP) ; 0833) 
0000v CF 9F $0 PUSHAB WRITE_TIMEOUT : 
eee | eee Tae Bl 
2 ‘ 
- e Of : i 1 pe ence ogo. 
a5 2 0870 cra 5{SP) Bc 
el a a ee 
=. 2 hue = ee ae 
so nse AB BEE at: ue fatoo. 3 
CLRQ. = SP) : 
64 Ar of 6 $6 PUSHAB 1088 ; 

30 DD 00 PUSHL #4 | 
7E dD8 AD BP 38 MOV ZUL CHAN -(SP) | 
67 if ee Al CALLS ee SYS$Q10W | 
54 0 b Ad MOVL RO, STATUS 2 | 

E D4 0 A7 CLRL 3s = ¢ §P) > 0842 | 
D8 AD Be a9 MOVZWL CHAN, -(SP) | 
68 F A CALLS #2 SYSSCANTIM F eel 
oc SES O08 BLBC = STATUS, 348 : | 
“4 OE 88 Sos peor $33 Toate? 

54 44 oP 3¢ 00 BB MOVZWL 10SB, STATUS : 


3 Routine Size: 


778 


1049 bytes, 


0873 


1 


Kk 11 
16-Sep-19 :10: 
132300-138e 93509; 
11 4 €8 BC 33$: BLBS 
4 3 BF 34$: PUSHL 
78 ag F C1 55$: PUSHAB 
0D C4 PUSHL 
00000000" 8F DD C6 PUSHL 
69 4 FB cc CALLS 
04 CF RE 
37 71 ~=AE 0S €1 DO 36$: BC 
7E D8 AD 53C¢ D MOVZWL 
std CF OF D PUSHAB 
10¢ 6 OF 0D PUSHAB 
; D4 é} CLRL 
6A ! FB E CALLS 
—E 7C 00 Ee CLRQ 
7E 7C E CLRQ 
09 oD EA PUSHL 
015E 6 OF E PUSHAB 
E 7C 003F CLRQ 
64 AE 99F O05F PUSHAB 
3 po O3F PUSHL 
7E D8 AD 3C 003F MOVZWL 
7E 04 8 FB CLRL 
7 ‘ fe O3FD CALLS 
4 DO 00400 MOVL 
E Be 00403 CLAL 
7E D8 AD 3C 00405 MOVZWL 
68 02 Fe 00409 CALLS 
08 70 §=6—AE E9 0040C 378: BLBC 
54 AE 99F 00410 PUSHAB 
0000v CF 01 FB 00413 CALLS 
04 00418 38$ ET 


Routine Base: 


SCODES + 0000 


96 AX-11 Blis see V4.0=742 
CLIUTL.SRCJSETTERM.B32;1 


STATUS, 36$ 
STATUS 
BEV DES 


#<SETS_WRITEERRE-8> 
#4, LIBSSIGNAL 


#5, FLAGS*1, 37$ 
CHAN, -(SP 

WRITE TIMEOUT 
TIMEOUT 


=(SP) 
#4, SYSSSETIMR 
-(§P) 

-(SP) 

9 

P.ABP 

-(SP) 

10SB 

#48 

CHAN, =(SP) 
=(SP5 

#i2, SYS$QI10W 
RO, STATUS 
CHAN, -(SP) 
#2, SYSS$CANTIM 
FLAGS, 38$ 


DATA BUFFER 
#1, COG_RESULTS 


— 
Ts 


Serta iScBeoc19Re 01:10:08 YaKetT BL 


ROUTINE write_timeout(chan): NOVALUE = 


! os = 

i 

The timeout has elapsed while trying to write to the primary 
guteut stream. We assume that the user pressed control/s to 
inhibit completion of the write. Cancel the I/0 to force 


SAAN NG 
VFwn— 

C002 CO CD CD CD CD CD CD CD 

ee) 

SONOUE 


1 

1 

1 

1 . 

1! 

1! 

01! 

f 1 : : completion of the $010. 
789 5 1 ! Inputs: 
790 8 1! 
791 . ee CHAN = The channel to cancel io on. Since this is called 
re oe ; } from a timer ast the channel must be the request id. 
794 oe 3 1 ! Outputs: 
795 8 1! 
re 0890 1! None 
79 0891 1 !<<- 
798 694 BEGIN 
799 089 SCANCEL(CHAN = .chan); ! Cancel the 1/0 to the terminal 
800 0894 ND; 


-EXTRN SYSSCANCEL 
0000 00000 WRITE_TIMEOUT: 
WORD 


° Save nothing 
04 AC DD 0000 PUSHL HA 
000000006 00 01 FB 0000 CALLS #1, SYSSCANCEL 
04 0000C RET 


Routine Size: 13 bytes, Routine Base: S$CODE$ + 0419 


Page og 


eee 


a 


eho 1:58:05 YMG less ys? 


1 ROUTINE get_term_type (data_buffer) = 
BEGIN 


Fox 


tee 
' Functional description 


C20000 000000 
LES 


This routine determines if a egec tits device type was spec tt ted, 
and, if it was, sets the associated fields in the device 


characteristics buffer. 


a==235 
fun—o 


' 
' 
' 
' 
| 
! 
' 
; 
! Inputs 
DATA_BUFFER = contains all the meaningful data 
' 
' 
] 
' 
] 
' 


; 815 08 ' 

3 518 909 ! Output 

3; 81 10 Info BLOCK = will be changed according to what device type was 
; a8 1} INDER - will be set to a number corresponding to the term type 
i geo i$ 3: 

: 8 ¢ 915 2. 

3; & at P 

$ ase 91 data_buffer : REF VECTOR; 

: BS ba19 5 

; 837 38 Y ! Bind the data buffer to names we understand. 

: 829 09 2 bind_data; 

Ae BE gem 

F HE 83 $ 3 - 

: 834 g 

3; 835 928 LOCAL 

: $39 , status; 

; 838 p44 index = -1; ! To show nothing specified 
He BRE, 

; 841 0934 See if /INQUIRE was specified. 

: Be 69 6 IF cli$present(ZASCID ‘INQUIRE') 

; gee $9 _— ecis 

F 46 9 § IF NOT inquire_type(.data_buffer) 

: B48 3c pee SEW Se 

BOBS, 

: 51 944 i See if a specific devtype was mentioned. Before the foeyice . TYP 
3 5 945 i qualifier was implemented, it was possible to specif y a devtype ys ae 
; 85 nee ' by calling it out, e.g. /VT100. So, to stay compatible with ear 
; 32 ms versions, see if any of those were specified. 

: 85 349 if .index -1 

3 5 950 THEN INCR OF on 0 TO 14 DO 

; 858 951 (IF cli$present(.term$_nameL[.i)) 


N 11 


1erSep-1986 12:09:00 LeCiunsaeSsetreRacesest roe 


THEN (index = .i; EXITLOOP)); 
The newer method gets a value for DEVICE_TYPE. So, if nothing found 
bo try /DEVICE_TYPE. 

on EQL -1 

t dyndesc (nane desc) 
L7$get_value(SB “DEVICE TYPE, name_desc) 

"BEGIN 
DEC 


7 965 R_i FROM term$_num - 1 TO 0 DO 

7 B08 BEGIN 

7 096 BIND name = .term$_name(.i] : SBBLOCK; 

75 0968 IF CHSEQL(. none desc dsc$w  sinaeh » «Mamie _descldsc$a pointers. 

7 0969 me_desc dsc$u, length], .nameCdsc$a_pointer]) 

970 THEN (index : -1; EXITLOOPY; 
78 971 END; 
% 097 IF .index EQL =1 
097 THEN 

81 0974 BEGIN 

Hf 0975 : 

8 3978 ! Didn't find a known tye See if this terminal i 

Be +444 defined in TERMTABLE E, the terminal definition. file. 

scones = CALLG (.AP, get_term_def); 
389 382 RETURN 0 : lready signalled 
! errors already signalle 

890 098 
34 0 . RETURN 1; ! get_term_def stored type, width, etc. 
89 END; 
8 END; 


If a device type was specified, set it. But first, a word about the 
way that things get set or don't get set. 


it fhe dévice type was specified as FT1 thru FT8, simply set the type 
e 


SSSSSSSS33 
SPSR SESE TERE 


*] 


If /UNKNOWN, then set the type field and clear some bits in the second 


99 characteristics longword. 


me ere ete teem etm mete 


SSSR SS SSSssesE 


Be Se Se Se Se Se Be Se Se Se Se Ge Ge Sse Se Fe Ge Ge Be Ge Ge Se Ge Ge Fe Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Fe Sse Se Se Ge Ge Se Ge Se ee Se Se see 
= 
So 
eo 
~ 
oO 


i 
4 
4 
| 
87 0980 : IF NOT .status 
THEN 
| 


998 
O938 F ,index NEQ -1 
1000 HEN 
908 1% BEGIN 
+14 ' § LOCAL 
911 1904 iota, Btedarrernte type] = .term$_tablel.index, term$b_type); 
att 1005 F .index GEQ term$ ft 
3 1 $ AND .index L : term$S_ft8 
a3 ' BB THEN RETURN 


4s 
WN 9 OONO UE W ODO 


OOODODOOOOO 


Bape 


mask = terns. tablel.index, Sorest zit 2 OR 
tablel. Sia erm$ trea: 
info _plock terete _set2] tern$l _set2) 


AX-11 Bliss-32 V4.0-742 
CLIUTL SRE Ise TTERA B53. 7 


nfo “otek 


ND NOT~ 
on . tered. tablet. index, term$\_set2); 
-index EQ —— unknown 
meh RETURN 


info_block porary wets = stere® tabiel qanden, term$w_wid hl; 
info_block(t paged s stores sfeeet ngen. term$b_pageJ; 
mask = “terns rtepts ndex, toras 

ats index, term$ tte 
info _plockreern seti] = vinfo o_plsckL tia, seti) 


on "perce tablel. ‘ndex, term$l_set1); 
END; 


RETUUMN 1; 
END; 


-PSECT nigra: NOEXE ,2 


017F -BLKB 
00 45 52 49 55 51 4E 49 00180 P.ABR: .ASCII \ nau tae \<O> 
BN S44 0188 P.ABQ: .LONG 
0000000" 0018¢ «ADDRESS P.ABR 


-PSECT SCODES,NOWRT,2 


O7FC 00000 GET_TERM_TYPE: 
WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10 
5A 000000006 00 9€ 00002 MOVAB TERMS_NAME. R10 - 
59 9000 006 00 9E 00009 MOVAB CLISPRESENT, RO 
00000006 00 43 0019 OVAB TERMS TABLE+1, RB 
4 A p 001 MOVL DATA BUFFER, R 
8 Ad 9 0018 MOVAB 40(R2), R 
3 4 Ad SE OOOTF MOVAB 56(R », R7 
4 44 A2 YE 000 3 VAB 68(R2). R4 
67 01 CE 000 MNEGL #1, (R?) 
0000" CF 9F A PUSHAB P.ABO 
69 1 FB ; CALLS ai. + CLISPRESENT 
OA E BLBC 
DD PUSHL 
0000v cr FB 0 CALLS 1. INQUIRE, TYPE 
FEFEFFFFF $F é DI i 1$ CHPL th #1 
5 i CLAL 
6A42 DD 00049 28 PUSHL me NAMECIJ 
9 FB 4C CALLS ‘ ISPRESENT 
2 Se tue = Raye 
04 3g BRB iy 


en 


Se Se Se Se Ge Se Se Ge Se Ge Se Ge Ge Ge Se Se Se Se Se Se Se Be Se 


; Routine Size: 


E 
FFFFFFFF 


FFFFFFFF 
0000v 


FFFFFFFF 
50 
01 
000000006 
000000006 


3} 
08 AS 
H 04 


06 =A 


291 bytes, 


Routine Base: 


rs 
eee 
64 achat * of ey 
coo HS 
p 
if 
4 bear 2 : 5$: 
. st fie 
BES 
4 5 Sm ot 
8A f2 O0ks 
g 0 oS 
1 if OAD ge: 
8F 67 o sta $: 
g =. 
AS 6049 $0 00BC 
He BS 
- tie 
52 07 sa 44 BRS 10$: 
gD OH ee 
pO RS 
se Si 
Pa Ba 
AS 6 agi 30 OOF 
ed BS it) 
da 
BH BB an, 
so SHES tas 
gt Hse 


SCODES + 0426 


sep-1 
eo- 
Sep-1 


Be 12:09:20 


cont Oh seg et rena pee 


CLIUTL.SRC ERM.832;1 

AOBLEQ #14, I, 28 
cHPL tres, bf 
BNE 9 
MOVL 34471936, (R4) 
CLRL = s_« & (RS) 
PUSHL R4 
PUSHAB SD_DEVICE_TYPE 
CALLS #2, gu GET_VALUE 
Bi.BC — RO, 
ADDLS i. #TERMS_NUM-1, 1 
MOVL.  TERMS_NAMECIJ, RO 
CMPC3 (R46), ~@4(R4), @4(RO) 
BNEQ 6$ 
MOVL L (R7) 
BRB 4 
SOBGEQ I, 5$ 
CMPL = (R7), #1 
BNEG 9S 
CALLG (AP), GET_TERM_DEF 
BLBS STATUS, 17$ 
BRB 2$ 
CMPL = (R7), #1 
BEQL 118 
MULL3 #28, (R7), RO 

OVE $TERMS_TABLE+I(ROJ, 1(R5) 
CMPL —- (R7), “#TERMS_FT1 
BLSS 10$ 
CMPL  (R7), #TERMS_FTS 
BLEQ 118 
PUSHAB TERM$_TABLE+8(RO] 

VL a(SP)3, & 
PUSHAB TERM$_fABLE+16(RO) 
BISL3 a(SP)?, R2, MASK 
BICL3 MASK, &(R55, RI 
BISL3 R2, R1, B(R5) 
CMPL = (RP), #TERMS_UNKNOWN 
BEQL 118 
PUSHAB TERMS TABLE#2(ROJ 
MOVW a(SP)%, 2(R5) 
MOVB TERMS TABLE?/(RO]. 7(R5) 
PUSHAB TERM$~TABLE+4(RO 
MOVL a(SP)F 
PUSHAB TERMS FABLE+12(RO3 
BISL3 a(SP), R1, MASK 
BICL3 MASK, 4(R5S, RO 
BISL3 Ri, RO, 4(R5) 
MOVL #1. RO 
RET 
CLRL = RO 
RET 


Page id 


See Se Se Se Se Se Se Ge Ge Se Fe Be Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Ge Se Ge Se Be Se Se Se Se Se Se Se Se Se Se Se 


51 
58 


toe 


SELF 


wr 


This rout'ne 


Inputs 


PLLLLLLLL0e 


SEEF 


i 

i 

i 

i 

i 

i 

! Outputs 

: INFO_BLOCK 
: TT1 
i 

i 

i 

i 

i 

i 


OOONOU Sw —O 


ROUTINE get_values (data_buffer) = 
BEGIN 


terminal characteris 


-parity OR tt$m perity OR ttSm_altrpar:! 


12 
1$-3e0r}984 1:10:06  yaKctt OLieg=32 v4, 0-742, Page 30 


Functional description 


cecerrogress the CLI to obtain values for various 
cs. 


CHAN = channel which is assigned to the terminal 


changed to reflect qualifiers 

tells what was set/cleared in ist characteristic longword 
tells what was set/cleared in 2nd characteristic longword 
contains the new speed values 

contains new parity code 

contains new fill characteristics 

bits set to show what was changed 


! Make a dynamic descriptor 


! If present, 


: say that we want to change 
: parity. assume even. 
y 


desc) a par value given 


BEGIN 
IF CHSEQL(.desc decdu_tength). -desc dace gointer). 
th T)) 


» «term$_odd 


3 1 

5 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1035 

3 1 

: } 

3 1 3 

5 1040 

r ¢ : 1 - 

383 19¢$ SPEED . 

; 938 1968 PARITY . 

; 956 1966 LL - 

; 955 104 FLAGS - 

3 328 Hb 

3 328 1050 

; 9 1051 MAP 

; 960 1926 data_buffer : REF VECTOR; 
; 961 105 

: 306 1054 ! 

; 96 1055 ! Bind the data buffer to names we understand. 
3; 964 1926 ! 

; 965 105 bind_data; 

3 + ¢ 1058 

:; 96 1059 LOCAL 

; 968 1060 erfill, 

; 969 1061 deccrt, 

; 970 IRS6 Lffill, 

; 971 106 desc : SBBLOCK(Cdsc$c_s_bin], 
3 a6 1064 status 

: 97 1065 statuse ; 

3 he 19¢7 Sinit_dyndesc (desc); 

: 378 1069 ' 

3 44 1070 ! Parity. 

3 9 4 4 ! 

; 980 1 status = cliS$present (SD_PARITY); 
3; 9ol 107 IF .status 

; oes ors THEN 

; 98 1075 BEGIN 

3 6984 1 6 ority = 

; 985 107 F cli$get_value(SD_PARIT 
3 one 1 4 THEN 

3; % 1079 4 

: 988 1080 4 

; 989 1081 4 -descldsc$w_leng 
; 990 1 ¢ 4 THEN 

; 991 1 2 BEGIN 

; 992 1084 parity = 


-parity OR tt$m_odd; 


12 
1-00-1964 01:10:06 Yana) OL ing=32 4.02742. Page 


3 


gs(set$v_odd) = 1; 


ELSE CHSEQL( .desc(dsc$w_length), .descldsc$a ° inter], 
-descldsc$w_length], .term$_evenl 9) 

THEN {hepsi oettv even] = 

ELSE IF CH eGL(.Goschdscéu_tength]. -desc(dsc$a pointer), 
-descldsc$w_length], .term$_nonef1)) 

THEN status = cli$_negated 


fle 
END 
IF 


REANLSSSISEA 


BEGIN 
SIGNAL (gets invquaval, 2, desc, SD_PARITY); 
RETURN 0; 


END; 
END; 
If .status EQL cli$_negated 
THEN 


SSeuSr eRe SsEseoe 


=o 


-parity_OR tt$m_altrpar) AND NOT (tt$m_parity OR tt$m_odd); 


e = ( 
tagstser$v_nopar] = 1; 


' 
frame size 
if cli$present (SD_FRAME) 
THEN 
BEGIN 


LOCAL frame; 
feck et. veluntS® FRAME. desc) 


SSLESRENLSSS 


PRPOPOPIPNI WWII IT BIO AB UIT BBB BAIR WII EIU EB BPP PP 
@ 
om 
sc 
“ az 
= 


pelelejleoleleolela) =) 
2 a 


BEGIN 

IF NOT LibScvt_dtb(.descldsc$w_length] 
desc dsc$a_pointerd, 
frame) 


— —) — ss ss 


—OOONO UNE UN 0 OD NO NE WIN —" OOONO UE WIN Oo 


BEGIN 
SIGNAL (set$_invquaval, 2, desc, SD_FRAME); 
RETURN 0; 


WN 9 OONOUVEWN —“OOOnwoOu fur 


END; 
IF NOT (. frame ga 0 
OR (. frame GEQ 

AND .frame LEQ 8)) 
THEN 


Re hee 


SES 


OOOCCCCoCCoCooooooooo 


ESS 


OOwOufwn—oO 


BEGIN 
SIGNAL (set$_invquaval, 2, desc, SD_FRAME); 
RETURN 0; 


END; 
parity = ttSm_altframe or parity; ! say alter the frame size 
parity <0,4> = . frame; 
lags set$v_frame) = 1; 
na; 


Page Length 
IF cli$present(SD_PAGE) 
THEN 


a aa aaa a a a dd a a i a i =o sd as Ls as a as a tt 


a ee a a a 8 = nd a a a a a ss 


‘ 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
‘ 
‘ 
‘ 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
‘ 
‘ 
4 
‘ 
4 
4 
4 
‘4 
4 
‘ 
4 
‘ 
‘ 
‘ 
‘ 
‘ 
4 
‘ 
4 
‘ 
‘ 
‘ 
4 
‘ 
‘ 
‘ 
‘ 
« 
4 
. 
| 
. 
e 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
4 
4 
4 
‘ 
| 
‘ 
| 
‘ 
| 
. 
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LOCAL page: 
lags(s $i page? = 1; 
age = 0; 
TF Dc iSget _value(SD,PAGE, desc) 
BEGIN 
IF NOT W1OSeut_otht. doset gectu_lenath) 
-desc dsc$a_pointerd, 
page) 
orgin 
S$ GAL (get invquevel. 2, desc, SD_PAGE); 
alm © 
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; 116 

3 1 114 

3 114 

3 7 114 

3 1 114 

3 3 114 

3 3 1148 4 

3 7 1149 4 

3 3 11 4 

3 7 11 4 

3 3 11 & 

3 5 11 

3 1 11 

3 1 11 

3 7 11 4 3 

3 7 11 4 IF .page LSS 8 

3% 11 4 OR .page GTR 255 

3 1 11 & THEN 
3 3 116 BEGIN 

3 1 116 SIGNAL (gets. invquevel.. 2, desc, SD_PAGE); 

; 1070 116 RETURN 0; 

3 1071 1165 4 3 

3 ; 1164 END; 

3 1 1165 info_blockCterm$b_page] = .page; 
; 1074 1108 END; | 
3 + 5 116 

3 1 $ 1168 : 

3; 10 119? ! Page width 

: 1078 1170 : 

; 1079 1171 IF cli$present(SD_WIDTH) 

: 1080 1106 THEN 
; 1081 117 BEGIN 

; 108 1174 LOCAL width; 

; 108 1175 flagsCset$v_width] = 1; 

3 1084 1176 width = 0; 
3; 1085 117 IF cli$get_value(SD_WIDTH, desc) 
; 1086 1178 THEN 

: 1087 1179 4 BEGIN 

3; 1088 1180 4 IF NOT LteSeut_otbt .geocidectu.Lengehl 
; 1089 1181 4 -desc dsc$a_pointerd, 

3 1 11 ; 4 width) 

; 44 11 4 THEN 

3 1 § 11 BEGIN 

3 19? 1185 SIGNAL (getS_invquaval., 2, desc, SD_WIDTH); 

3 1 11 RETURN 0; 

: 1095 11 4 END; 

3 1 11 : 4 IF .width LSS 9 

3 1 11 4 OR .width GTR 511 

: 1098 11 4 THEN 

3 1099 1191 BEGIN , 

; 1100 1138 SIGNAL (set$_invquaval, 2, desc, SD_WIDTH); 

: 1101 119 RETURN 0; 

3s 11 § 1194 4 END; 

311 1195 END; 

3 11 1138 info_block(term$w_width] = .width; 

: 1105 119 END; 

3 11 1198 
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64 § THEN 
3 Bf NAL t$_i l, 2, de SO_LFFILL) 
e nvquaval, 2, desc, ; 
7 3 RETURN 6: eR - 
i i 
§ IF .LffiLl EQL 0 
0 § THEN tti_clr = .tti_clr OR ttSm_Lffill 
71 biti it set = .tti_set OR ttSm_(ffill; 
Lf; FiLL<B,8S5 = .LFFILL 
7 65 END; 
74 ¢ 
75 6 : 
re 6 ! When storing the fill characteristics above, it is important that 
7 § ! changing one doesn't zero out the other, because either or both 
8 y } may have previously been set (by get_term_def). 
80 7 
1 : 
e Speed. 
84 IF cli$present(SD_SPEED) 
85 THEN 
86 BEGIN 
87 IF aVlaget petee_poras 
a3 THEN tt 


flags(set$v_speed] = 1; 
spose = 
I CR FROM 0 TO 1 DO 


IF cli$get_value(SD_SPEED, desc) 
THEN IN 8 7 FROM 0 fo term$_spdnum-1 DO 


BIND $p¢ desc = term$_spdbikl.i] : REF VECTOR; 
IF CHSEQC(.desc(dsc$w_length), .descldsc$a pointerJ, 
-desc(dsc$w_length), “Sed descl tJ 


A = .tt2_clr OR tt2$m_autobaud; 
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91 THEN (speed = .speed*8 OR .i; EXI P); 
9 END; 
i) END; 
94 END; 
95 
04 38 ‘ 
05 9 ! There are a number of different keywords which cause bits in the 
5) 98 ! two characteristics longwords to be set. This is relatively simple, 
0 99 ' since most Beywords correspond to the setting of a corresponding bit, 
oS 4 ane the negation of a keyword causes the bit to be cleared. Deal with 
! those here. 
10 4 ! -Exception: The qualifier /DEC_CRT does not uniquely correspond with 
11 0 : a characteristic. Instead it can have two values, 1 or 2 
\ 04 : which can modify the character ist i s, deccrt and deccrt2. 
1 05 : Therefore this qualifier is a special case which is proc- 
\ 89 } essed further on in this routine. 
1 08 INCR i FROM 0 TO term$_ttset_num-1 DO ! Ist char longword 
1 09 BEGIN 
18 10 status = cli$present(.term$_ttset_keyl.i]); 
4 \) If .status 


THEN ttl_set = .ttl_set OR .term$_ttset_bitl.i] 


vo4~000 Ve-$ep-1986 42:09:20 Leriure“SRedsefreRmeases row 
Hab Hac tte"ys fBh etitonreees 
se ° -term$_ttset_bitl.i]; 
IWcR 1 FR FROM 0 TO term$_tt2set_num-1 00 ! 2nd char longword 
status = ¢ cliSpresent(.term$_tt2set_keyl.i]); 


HEN tt set = ,tt2_set OR .term$_tt2set_bitl.i] 
ELSE IF Vstatus EQL cli$_negate 
i tt2_clr = .ttd clr OR -term$_tt2set_bitl.i); 
' 


i Now for the corkers. Some (6 at present) keywords cause bits 
! to be cleared; and the negation of those keywords causes the 
bit to be set. So... 


4 INCR i FRON 0 to term$_ttclr_num-1 DO 
re ae Sel cli$present(.term$_ttclr_keyl.i]); 
4 THEN ttl velr = .ttl_clr_OR .term$_ttclr_bitl.i] 
4 ELSE iF 7Sstatus EQL” clis negate ed ~ 
re ha tti_set = .tti_set OR .term$_ttclr_bitl.i); 
4 


incr 1 fron 0 to term$_tt2clr_num-1 00 
ae = cli$present(.term$_tt2clr_keyl.i]); 


status 
THEN tt2_clr = .tt2_clr_OR stores. tt2clr_bitl.i] 
SLSE iF 7status EQ “Elis negat 

ie tt2_set = .tt2_set OR aterm. tt2clr_bitl.il; 


‘ 
LOCAL ECHO IMPLIES NOECHO 


status = cLiSpresent (ZASCID "LOCAL_ECHO"); 
sta 
THEN tti_set = .ttl_set OR tt$m_noecho 
ELSE IF Tstatus EQL cli$_negate 
THEN tti_clr = .tti_clr OR tt$m_noecho; 


' 
: Dismiss parity error modifier has a bit set in the parity longword 


= cli$present(ZASCID ‘DISMISS_PARITY'); 
IF .status 
saa dismis) = 1; 
ty = .parity OR en _altdispar OR tt$m_disparerr; 


IF b—- B EQL cli$_negated 
on™ 
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SN SNA AAA AAA AA AMMAN MN & & & 


tlagstsetsy, nodism] = 
parit -parity OR eta _altdispar; 


Nm 
| 
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bet nage acl OL is8282, V4. 0-742, Page 3 
END; 


Qualifier = / CNOJDEC_CRTC=number) 

This qualifier can set on or off the characteristics, Dec CRT and DEC gate 
If fhe number specified ss 1 (also ie default values the~character st go 
modify is dec.crt. If the number is 2 then the characteristic is DEC_ CRT 


status = cli$present( SD_DEC CRT 

f (.stetus (.status EQ zis, inegated)) THEN 
status. = Ron 'g9e'r's vgiue(se -DEC_CRT, desc) ; 
sore * Bs 


EGIN 
IF NOT .status2 THEN 
deccrt = 1 


Ce ee ee ee 


BEGIN 
IF NOT LibScvt_dtb( .descCdsc$w_length] 
.descldsc$a “pointerd, 
deccrt) 
BEGIN 
SIGNAL (set$_invquaval, 2, desc, SD_DEC_CRT); 
RETURN 0; 
END; 
If ‘Cdecert NEQ 1) AND (.deccrt NEQ 2)) THEN 
SIGNAL (set$_invquaval, 2, desc, SD_DEC_CRT); 
RETURN 0; 


WANA. AIA.AIA AAAI AAAI AAAI AAAI NIA AAA 
MEW 0 DOONAN DWONOULS WIN O 


END; 
IF .status THEN 
BEGIN 
IF .deccrt EQL 1 THEN 
deccrt_set = .deccrt_set OR tt2$m_deccrt OR tt2$m_ansicrt 


on deccrt_set = .deccrt_set OR tt2$m_deccrt2 OR tt2$m_deccrt OR tt2$m_ansicrt 
IF .status EQL cli$_negated THEN 
BEGIN 


IF .deccrt EQL 1 THEN 
ELSE deccrt_clr = .deccrt_clr OR tt2$m_deccrt OR tt2$m_deccrt2 


deccrt_clr = .deccrt_clr OR tt2$m_deccrt2; 


END 
status? = cliSget value(SD_DEC_CRT, desc) ; 
IF NOT .statusé TREN exitloop ; 
END ; ; 

' 

: One more special condition. If ansicrt was turned off then 
: deccrt levels 1 and 2 must also be turned off since they are 
; @ superset of ansicrt. 


Status = cli$present(ZASCID "ANSI_CRT") ; 
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1e=8ep-198e 2:09:00 LetTunsreiserrenncases a 
If 38 atus EQL his eneg ated THEN 


clr = .tt Br tt2Sm_deccrt OR tt2$m_deccrt2 ; 


Now set/clear the bits, using STATUS as a mask Longword. 


status = pti. atti t OR iensin ; 
info _block(term$i_seti] =". info blockLtermSl set] 
3st 


SOGER 


UEWN—O0Oan 


status = .tt2_se te. oie” bk “ieet rt_set OR gecertclr 3 
info_block tefast seed inte blockCterm$l_set2 
-status 
on. -tt2_set 
OR sdecert set; 


i] 
If /AUTOBAUD was specified, and no speed, then set the speed to 9600 


if (. tt2_set AND tt2$m_autobaud) NEQ 0 ! If /AUTOBAUD specified 
AND .speed EQL 0 i and no speed set 
THEN speed = tt$c_baud_9600; 


RETURN 1; 
END; 
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-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 4F 48 43 45 SF 4C 41 43 4F 00190 P.ABT: “LONG: Ney, eateries : 

0100008 B01 Re P.ABS: 3 : 

00000000° 001A0 : 

00 59 54 49 52 41 50 SF 53 53 49 4D 53 49 44 dhe] P. ABV: “ASCII \DISMISS PARITY\<0><0> : 
35344 0184 P.ABU: .LONG 17694734 : 

0000000" 00188 - ADDRE Vv : 

54 52 43 SF 49 53 4E 41 OOIBC P.ABX: <ASCII \ANSI_CRT\ : 

Q10E0008 001C4 P.ABW: .LONG 17694728 : 

00000000° 001¢8 «ADDRESS P.ABX : 


-PSECT S$CODES,NOWRT,2 
OFFC 00000 GET_VALUES: 
wor 


: Saye R2,R3,R4,R5,R6,R7,RB.R9,R10,R11 7 1028. 
E 24 C3 9 9 SUBL2 #36, SP : 
4 6 AC MOVL DATA BUFFER. R4 : 1052 
A 4 AQ 9 MOVAB 4(R4J, R1 : | 
8 AG OF p PUSHAB B(R4) ; 
58 ¢ AG 9E 0001 VAB (R4), R11 : 
10 AG OF 14 PUSHAB 16(R4) ; 
14 A&G 9E 00017 V (R4), R ; 
1 AG §9E 00018 VAB (R4), R ; 
; AG 9E OOOTF OVAB (R4), R ; 
C Ad OF 00023 PUSHAB 60(R4) : 


| 
vO4~000 
2c 


000000006 


000000006 


60 30 


60 30 


60 30 
000000006 


000000006 


000000006 


000000006 


66 


4 
AE sonnel 
0000" 


66 z 
0000" 


3 000000806 
66 80 


50 000000006 
BE 


50 000000006 
BE 


59 000000006 
0000" 


96 000000C0 
68 


0000° 
00 
49 , 
0006" 
90 
A 
, 
? % 
% 
1 
50 14 
05 
08 
0000' 
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18-$6 oy 710: AX-11 Bliss-32 V4.0-742 

1 = 3-19be 93:09:58 CLIUTL. SRCISETTERM.B32;1 
PUSHAB 63183) 
MOVL 434471936, DESC 

DESC +4 

SD_PARITY 

#1, CLISPRESENT 


STATUS, 4$ 
#96, (R6) 
pest 


ou 
>cr 
-—AD 
-=e- 
"® 


‘ 
4 
4 
4 PUSHAB SD_PARITY 

; CALLS ae, CLISGET_VALUE 
A MOVZWL DESC, RS 

5 MOVL TERNS ODD+4, RO 
65 CMP cS R5, aDESC+4. (RO) 
$ BISB2 #128, (R6) 

Pa 4 gt Spe 

75 1$: MOVL TERMS EVEN+4, RO 
7¢ CMPC3) RS, aBESC+4, (RO) 
81 NEQ 2 

83 B1SB2 #8, (RB) 

88 2%: MOVL. TERM$_NONE+4, RO 
oF CMP CS R5, aDESC+4, (RO) 
36 MOVL WCLIS_NEGATED, STATUS 
Hi 3$: PUSHAB SD_PARITY 

a3 4$: CMPL TATUS, #CLIS_NEGATED 
AE BICL3 #192, (R6), RO 
B6 BISL3 #32, RO, (R6) 
BA BISB2 #16. (R&) 

BD 5$: PUSHAB SD_FRAME 

cl CALLS ay CLISPRESENT 
‘e PUSHAB SD_ FRAME 

03 CALLS aoe CLISGET VALUE 
D LBC —_s&aRO, BS 
DF PUSHL. DESCes 

Ee MOV ZL DESC. (SP) 

‘ CALLS #, 1BSCVT_oTB 
4 MOVL FRAME, RO 

F4 BEQL BS 

rg CMPL =sRO, #5 

F BLSS 6$ 

FB CMPL = RO, #8 

F BLEG = «8S 

$$: PUSHAB SD_FRAME 
$: RB 
8$: BISL3 #16, R6, (R6) 
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-1984 AX-11 Bliss-32 v4.0- 
12: 300713 984 9}: 48: 98 CLIUTL. SRC set rtnncases 1 
14 AE FO 0010A INSV FRAM #0, #4, (RO) 
- - 01 g Of b8 199 8182 veh tae) 
0000" CF SF 00114 98: PUSHAB 
000000006 00 ; i 118 CALLS 1" Et [sPesent 
01 OA 3 1 B1SB2 1(R8) 
18 AE 04 001 CLRL nee 
36 AE oF 1 PUSHAB DESC 
000000 ate be Pe i a tice 302 OE cer VALUE 
” : $8 9 1 BLBC 4% te . 
18 AE SF 0013A PUSHAB 
4 AE DD 00130 PUSHL > 
ons FO RR He 
- . oF g 9 O18 BLBC~—E—s«aRO, tt ¥ 
18 AE DS O014E TSTL PAGE 
OA 19 00151 BLSS 10$ 
QOOOOOFF BF 18 AE p} on138 cHPL PAGE, #255 
0000' ct 9F 128 10$: | PUSHAB SD PAGE 
2 1100161 11$: BRB 15 
07 +A? 18 AE 30 0165 128: OVB =~ PAGE 7(R7) 
0000" CF 9F 00168 13$:  PUSHAB sD WIDTH 
000000006 00 1 FB 00 CALLS CLISPRESENT 
46 85 9 O198 BLBC RO: i 
01 «AB 01 5a $b1%6 BISB2 #1. 1(R8) 
1¢ AE D4 OO17A CLRL = WIAD 
2¢ AE OF 00170 PUSHAB DESC 
0000" CF 9F 00180 PUSHAB SD_WIDTH 
000000006 90 03 re 00184 CALLS a; CLISGET_ VALUE 
- FF boise PUSHAB CiSTH 
34 AE pp 00191 PUSHL DESC #4 
7E 4 AE C 00194 MOVZWL re 
000000006 00 03 FS 0198 CALLS ’ Cyescvt_ DTB 
1¢ «AE ODS O1Ag TSTL ul T8T TH 
OA 19 OO1A BLSS —s_-‘14 
QOOOO1FF BF 1C A p} OO1A7 CPL WIDTH, #511 
0000" CF 9F 001B1 14$ PUSHAB SD WIDTH 
4E 11 0183 15$: BRB 20 
02 A? 1¢ AE BO 0018 168: MCVW WIDTH, 2(R7) 
25 AE p4 1BC 17$: CLRL  CRFILL 
0000" CF 9F 001BF PUSHAB SD _CRFILL 
000000006 00 i re Ics CALLS a. ctl PRESENT 
66 40 BF 88 001CD BISB2 #64, (RB) 
2 AE 9F 00101 PUSHAB DESC 
00 6: F 9F 00104 PUSHAB $ ~CRFILL 
000000006 00 03 FB 0108 CALLS ea cul $GET_VALUE 
14 . O1DF LBC —s«éRO, 1 
0 AE OF Olt PUSH CREILL 
ge AE po 1E PUSHL DESC 
re es ee OIE MOVZWL DESC. -(SP) 
000000006 0 03 FB OO1EC CALLS #3, LIBSCVT_DTB 


Page 40 
40-742 (7) 
“11 tt o3¢ San B32;1 
12 :10: AX SRE} SETTE : 
16- ety 7 93509550 CLIUTL. ; 1220 
BS SSIES wos: RIE al? na sae 
RM 50 F6 188: 9$ 31 
vO4~600 Rive: | i IF, che ngs a9 ; 1227 | 
Be 1 Bate Ble Sotenriu Set 
09 9F 1 198: BRB $ 3 12 
0000" gf § Bitten BS $1229 | 
5 p 18: BNEG. o¢ 1(R10) t4 3 
? ns : 1538 
AA 4 . OF $ B1SB2 R2. 24(R4) : | 
, v7} 2 ¥ i sf CLA abs arnt 
4 $ T : 
ue oe Be seg gy tiese a 
0 1 £8 6 LB #32, (RB) ; 
00 O} 0 B1SB2 DESC : 
vores oH Bias Be ee er we ag 
C 0 CALLS ° ae" : 1606) 
66" CF OF € RO 3 1245) 
0006 99 56 9 ° : PUSHAB bestek p) ak 
00000 14 4 AE 9F 005 A cal Ae eseuy ore : 1254) 
al ss: Sugh Lass 
7E 0 O24F MOVL = LEFILL, : 1258, 
wo EER BE se fa 
5 0 58 a 2 : 
05 3 00958 :  BUSHAB §D-LFFILL 1262 
09 0 0250 268: BRw 598 ; 1262 
0000" rahe 8) poday are: TsTt Re 2 1263 | 
Naz 8 Stabs 288: Bisez #8, 1¢R10 t 186s 
Oa ‘i a i Bone) Bi ceied 
01 AA 04 Bses gos: BSB SPEED 1279. 
ra Bae Re fe Leer: 18 
me ge OO HO Bat ae a 
B ¢ } 
000000006 99 01 &1 90 B1383 Sfse""laay : 1988 
68 02 bs a Ue Oh, : | 
a 68 08 BE Dé O0DBF CURL pre 
a ae Bo PUSHAB § TT T$GeT_VvALUE 1289 
C. AE 9F 00298 CALLS =f, Ss : fs 90 | 
of a Be. 
emnomne 1 fF O0sag RoW, TERMS sppeeat 8g, E1291 
\ Reese ‘ 
48 c 
“teens ee 8 3 ASHL #8. @BCSP), RO 
04 80 ™ 6 5 1 BC 
E 
a 0 8 


—————-—(—-—— 


13 
vO0-000 WE$eoctags 94:40:08 yARGdt OLzegc32 4405742, 


08 BE 50 ; f (1 BISL3 | RO, a8(SP) 
¢ BRB bs 
0B 55 000000006 BF F CB 35$: AOBLEG @TERMS, SPDNUA-1, 1, 348 
C 10 A , : :  AOBLEQ #1, J,” 338 
00 eee at 
0090000060042 DD OOODA 38$:  PUSHL TERMS_TTSET_xEYCI2 
000000006 ¢ f 3 CALLS #i, CCISPRESENT 
A § 4 4 BLBt er krvs $ 
| 64 000000606004¢ ; i Bist2 T RNs. TSET_BLTC1I, (RS) 
000000006 8F i i FB 398: (HPL STATUS, #CLIS_NEGATED 
A 0000000060042 ¢& 00301 1SL2. TERMS_TTSET_BITCIJ, (R10) 
| a os BOEEeaemesy FA SSS son, Sta FOEMATISEERGICYT: (P14 
| 1 CF i MNEGL f I 
noo0o900co042 DD 00316 418:  PUSHL TERMS _TT2SET_KEYEI] 
000000006 FB 00310 CALLS #1, CCISPRESENT 
g DO 00324 MOV RO STATUS 
08 ES 00327 BLBC_ STATUS, 42$ 
oc BE doo0000060042 8 9 A Bist2 TERMS_fT2SET_BITCIJ, a12(SP) 
000000006 8F 39 pt 0 3 428: CMPL STATUS, #CLIS_NEGATED 
000000 ocooes cf 033€ BISL2 TERMS_TT2SET_BITCIJ, (R11) 
c8 000000006 fF F 0346 43$: AOBLEQ #TERMS_1T2SET_NUM- . I, 418 
1 cf 034 MNEGL #1, I 
F 11 00351 BRB 46 
0000000060042 DD 00353 44$:  PUSHL TERM$_TTCLR_KEYCI] 
000000006 00 1 Fe 035A CALLS #1, CCISPRESENT 
59 8 D 0361 MOVL RO, STATUS 
OA E9 00364 BLBC STATUS, 45$ 
6A 000000006004 ¢ C8 00 7 Bist2 TeR"S_fTCLR_BITCII, (R10) 
000000006 aF 39 D1 i “i 45$: cMPL SIATUS, #CLIS_NEGATED 
9000000060048 c§ O37A BISL2 TERMS$_TTCLR_BITCIJ, (R4) 
c9 000000006 af F3 00382 46$:  ADBLEQ #TERMS_TTCLR_NUM-1, I, 44 
1 a: G38A MNEGL #1, I 
038D BRB 49 
0000000060042 DD OO38F 47$:  PUSHL TERMS _TT2CLR_KEYLI) 
000000006 99 f 96 CALLS #1, CCISPRESENT 
9 D 90 MOVL RO. STATU 
OA F a0 BLBC. STATUS, 48$ 
68 seer ¢ 0 a3 BIsL2 T Rms_fT2cir_BiTC1I, (R11) 
000000006 8F 3 p} AD 48$ CMPL STATUS, #CLIS_NEGATED 
0c 8 9000009 60043 cb B6 BISL2 TERMS TT2cLR BITCI, a12(sp) 
c8 000788 G or + 0 af 49$ aceure #TERMS_TT2CLR_NUM-1, I, 47% 
090000006 99 1 F 6 ¢ CALLS #i, CLISPRESENT 
g 08 D MOVL RO 
05 ; 030 BLBC STATUS, 50$ 
64 2 88 0030 BISB2 #2, (R4) 


~~ 
n> 
-— 
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j 


11 00308 BRB 51$ : 
000000006 8F ‘ : Dp 508 cn TATUS, #CLIS_NEGATED + 1352 
SA 0000" CF $F OOsES 518 pie, Phey : 1383 
000000006 1 Ff ED CALLS #i, CLISPRESENT F | 
: F4 MOVL RO, § aTy : 
} ‘7 BLBC status $ : 1359) 
Bre: 8 FA BI S82 #8, 1(R8) +1 ; 
1 Ab ; F BISB2 #6. 1(R6) : 1363. 
0G &8F 402 528: CPL status, #CLIS_NEGATED : 1365. 
o1 Ag 4 81 $82 #16, 1(R8) t 1368. 
" © over fF $F Gott 538: Pune se’pee tar : 1398. 
000000006 9 1 F 413 CALLS #17 CLISPRESENT : 
g D O41 MOVL RO. STATUS : | 
C EB 004 BLBS STATUS, 54$ : 1379) 
000000006 &F ; D1 04 4 CMPL STATUS. #CLIS_NEGATED : 
3 00428 BEQL 4$ : | 
O0AD 31 00420 BRW 65$ : | 
3¢ AE 9F 00430 54$:  PUSHAB DESC + 1381) 
0000" CF 9F 004 PUSHAB SD_DEC_CRT : | 
000000006 99 FB 004 CALLS &#2> CLISGET_VALUE : 
00 04 MOVL RO, STATUS : 
52 D2 6044 MCOML  STATUS2, R + 1384 
D4 0044 CLRL J F | 
06 2 £9 00446 55$: BLBC R2, 56$ : 
28 AE 07 00 0044 MOVL #1. DECCRT : 1385) 
14 11 00440 BRB 57$ ; 
8 AE OF 0044F 56$: PUSHAB DECCRT : 1388 
4 AE bp 045 PUSHL DESC +4 > 1389) 
7E 4 Ae C 0045 MOVZWL DESC. -(SP) : 1388) 
000000006 90 0 FB 00459 CALLS #3, 1BSCVT_DTB ; 
C 0 £9 004 BLBC = RO, 58S : 
01 28 AE 01 00463 57S: CMPL DECCRT, " > 1397) 
1F 13 0046 BEQL 60$ ; 
02 Py. AE D1 00469 CMPL DECCRT, #2 ; 
1 13 BEQL 60$ 3 
0099" CF 9F OO46F 58$:  PUSHAB SD_DEC_CRT : 1399) 
AE OF 04 3 59$:  PUSHAB DESC : 
DD 0047 PUSHL # : 
0077132A 8F DD 0047 PUSHL #7803690 : | 
000000006 00 4 a 47 CALLS #4, LIBSSIGNAL ; | 
OOAE 31 004 BRW 68$ $ 1400. 
18 59 £9 00488 60$:  BLBC STATUS, 62$ : 1402. 
01 28 «AE OT 04 CMPL DECCRT. #1 > 1404 
A 12 0048F BNEQ 615 : 
04 BE 21000000 F f 491 BISL2 #333648128, a4 (SP) $ 1405. 
04 BE 61000000 = 8F C8 498 61$:  BISL2 $¢3 7389952 a4 (SP) > 1407 | 
000000006 8F 29 j O4A3 62$: cMPL STATUS, #CLIS_NEGATED > 1409 | 
01 28 OA bf 4A CMPL DECCRT, #1 > 1411) 
12 0)48 BNEG 63$ F 
00 «BE 02 1D FO 0048 INSV #3, #29, #2, @0(SP) > 1412 
6 11 0048 BRB 64$ : 


Be 12:09:98 


153 


00 «BE 01 1E 
000000006 ! 
FF69 53 1 
000000006 33 
000000006 8F 
03 AB 
23 64 
! 046 A? 
06 =A 50 
oc 5 
59 ° 
50 08 A 
50 
08 A7 50 
09 OC «BE 
08 BE 
50 


; Routine Size: 1337 bytes, Routine Base: 


belie 
- ep- 
14-Sep-1 
01 FO BA i: 
AE 9F CO 64$: 
0085" F 3 4C 
F ¢ 
) 4C 
) 40 
E 404 
fF 407 
0000° F OF 400 65$: 
1 fe 4E1 
i) 4E8 
»} rt} 
4F 
60 F 8 F4 
AC O4F9 66$: 
9 ce O4F 
64 C9 0050 
6B C9 626 
04 BE C8 32 
00 3 C9 0051 
CB 0051 
oc «6BE ‘8 OS1IA 
04 E C9 OOSIE 
1 €1 00524 
08 BE 05 00529 
04 is 0052C 
F OD bpe 
1 00 00552 67$: 
04 005 
50 D4 00536 68$: 
04 005 


SCODES + 0549 


BISB 


-WOWWWWOOOOw 


A TD ee a 
AOMMNNOMWMNYNOow 
- ee 2 2 ee Se 


AX-11 Bliss-32_ V4.0-742 
CLIUTL.SRCJSETTERM.B32;1 


1 #30, #1, a0(SP) 
SD_DEC gRT 
ig: CLT GET_VALUE 
RO, § ATUSS 
stATUSe. R 

af 63 J, 55$ 
P.ABW 
#1, CLISPRESENT 


RO, STATUS 
STATUS, #CLIS_NEGATED 


4( 
», RO, 4< 
15 aa RO 


SP5, R 
STATUS 


+zza- 
aNn>Pn- 
~ 


SP). R 
TUS. 8(R7), RO 


SPS, 
SP), RO, 8(R7) 
#1, alecsPs, 67$ 
ag(sP) 


67$ 
#15, a8(SP) 
#1, RO 


FSE“SE53° =o 
NO 


RO 
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16-5¢ -1984 01:10: AX-11 Bliss-32 V4.0-742 p 44 
ee toes ri) ptt he hg pre et ww a 
NE inquire type (data_buffer) = 


unctional description 


This routine implements the SET TERM/INQUIRE qualifier. It sends 

a@ message to the terminal, saying ‘who are you?"’ If the terminal 
responds, then we try to find a match between the pattern given and 
the known patterns that supported DEC terminals give. 


PAPAS 


WN SO OONOUS ur 


ts 
INFO BLOCK = the characteristics buffer. 
INDER = number which points to terminal's terminal block 


i Outputs 
ee torn - wrtt be changed according fe what device type was 


! 

! 

' 

' 

' 

! 

' 

! 

Inpu 
! 

! 

' 

! 

} will be a number, which wi index to the terminal 
' 


data_buffer : REF VECTOR; 


Bind the data buffer to names we understand. 
bind_data; 


! Pointer to end of answer 
! Answer Length 

' Real answer 

' Place to put answer 

' Zero it out first 


len, 
sequence : REF vec Tort BYTE) 
resp_buffer : VECTORE 6 


Be Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Ge Fe Se Ge Se Se Se Se Se Gs Ge Se Ge Ge Se Ge Se Ge Ge Se Se Ss Ge Se Se Se Se Se FH Se Se Se Se Ge Se Se Se Se Se Ge ee 
a ta a a ek nd nd nd = od od td 
a a a 8 ed ak a a dd a “kd a ad od a 1 


PANAMA BEBE EEE EEE EEE PEPE PPP PEPPER 


606060 6d G0 GPG SEO Wd wo nh wd wd nd <o d ed edt nt rprerernnen 
OO NAN PWV ODRNO NE IO eo 
PULL AVA. AAA A. AAAPIPIPIPOIPI PPI SPONIT VPUPINIPININIPIPIPYPIPIPIPIPOPIPIPIPNIPOPPOPOPOPOPUPONoNONn — 
_ - - —_ 
2 > 
o 
> 
.0F 
2 
vs 
>. 


94 

95 iosb : add Faget ! 1/0 status block 

% tmpblock : $bblock(123, 

9 status; 

98 

99 90 ! 
400 91 ! There are a number of different request strings, strings which will cause 

rtf 3§ ' different terminals to respond with their identification hag Loop 

4 ¢ 9 ! thru these different strings, seeing if the terminal responds to any of 

40 94 ! them. 

404 95 : 

405 38 INCR i FROM 0 to term$_reqnum - 1 DO 

$06 9 BEGIN 

40 98 BIND request = storms cogblkC. 1) : VECTOR; ; 

408 P 1499 status = SQJOW(FUNC = io$_readprompt OR ioSm_timed OR io$m_purge OR io$m_escape OR io$m_noecho, 
409 P 1500 CHAN = .chan, 

410 P 1501 10SB = josb, 

411 P 8 Pl = cesp buffer ! Place to store response 
ra P 150 Pp = ZALLOCATION(resp_buf fer), ' How big is the buffer 

41 P 4 P = 4, ! Wait several seconds | 
414 P 5 P = request} ! Address of request string, 
415 P6 == crequestl0}); ' Length of request string, 
oig If ,status ! Check both statuses 

41 08 THEN status = .iosb(0); 


a 


- 
—— 


VIEW —OOONOU FW OWO 
WRC OONOUSWN —OOONOUS wr 


Sat al ek ek ee ee et et et et et ee et De et et et et et ee 


VEWN—O0O@ 


PAAAMMMNMNUIV SE BEEP EEE 


SSSLSAFER IS SSLSGLAN LS SHANG 


FAN 9 ODNOA VE WN 0 OD NOAU EWN" OOONOUS 


a a ed ed nd nd ed ed 


Fo ot ot ot oF at al el el et el tt et eh ek eet 
Dy tale lea lealeal al ot ot ot ot oT ot ot tt ot ot ot at at ot ot ot ot ot ot ot pl’, |”, |”, | ot ot pt nt et | et et ot te 


POAOAAA MINI BBE BEES WWI 


NING 
un 


w 
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16-Sep-1984 01:10: AX-11 Bliss-32 v4.0-742 
19-808- 1982 93:99:58 CLIUTL.SRCJSETTERM.832;1 
IF (NOT .status) AND 
(.status NEQ ss$ timeout) AND 


(.status NEQ ss$_badescape) ! If a real error, 
N ! signal it and 


BEGIN ! return. 
SIGNAL (setS_writeerr AND NOT sts$m_severity OR sts$k_warning, 
» dev_desc, 
Status); 
RETURN 0; 


N 
IF .i EQL 1 THEN 
BEGIN 


tmpblock = .info_block; 
tmpblock+4 = .(info_block+4) OR tcSm_eightbit; 
Sqiow (chan = .chan, 

func = io$_setmode, 

pl = tmpblock); 


END; 
If .status NEQ ss$_timeout 
THEN 

Begin 


At this point, we -t least have something. 10S8(3] will contain the actual 
number of characters returned as part of the escape sequence. w, in some 
instances (VT1XX and VT2XX families of terminals) the sequence of interest 
ends with a semicolon, followed by all manner of other stuff that should be 
meaningful, but isn't. So the search stops at the semicolon. But, VT52's 
and other terminals end in a different way, with no semicolon, and/or no 
other trailing garbage. In those cases, the total length of ood stuff 

s the length found in I0SB(4]. Also, some sequences end with ‘'c’’ and no 
semicolon. Change that ‘’c’’ to a '';"*. Finally (for now), in some cases when 
a user is typing while the gi9 rf rformed, garbage comes in before the 
valid escape sequence. J10S8(1 he offset into the response buffer that 
will get us to the beginning o escape sequence, and 10S8(3) 

long the escape sequence is. 


tells how 


So, first get to where the ‘‘real’’ response sequence starts 
sequence = resp_bufferl.iosb{1}+1); 


Look for a semicolon. If no semicolon, the I0SB[3] is the Length of 
the + tes + Make one further check, changing the ‘c* at the end (if there 
s one) toa '; 


tr = CHSFIND_CH(.jiosb(3] - 1, .sequence, ';'); 
F CHSFAIL(.ptr) 
THEN 

BEGIN 

resp_len = .iosb(3] - 1; 

IF .Sequencel.resp_len = 1) EQL 'c’ 

pee sequence(.resp_len - 1] = ';'; 


If the semicolon is found, calculate the response string length. 
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SETTER 1$-Sep-1964 01:10:06  yaxctt Bling 52 v4. 0-742 Page 6 


> 1475 1 4 ELSE resp_len = .ptr = .sequence + 1; 

ee UE 

3 pA 1 § 4 ! Now loop thru all the terminal types, to see if any of them have the same 
r 1? : ty 2 } response string as what we found. 

3 1% 1 : Lf & nme FROM 0 TO (term$_num -1) DO ! Go thru each term block 
; 14 ¢ 1574 ; If _.term$_tablel.i, term$l_rspnum] NEQ 0 ! If a response block exists 
3; 14 1575 THEN ! then go thru all the responses 
3; 1485 1 6 6 BEGIN 

3 14 1577 6 BIND resp block = .term$_table{.i, term$l_rspblk] : VECTOR; 
7 14 1 8 § INCR i FROM 0 TO (.term$-tablel.i, term$i=rspnum] = 1) DO 
3 14 157 BEGIN 

3; 1489 1580 7 BIND response = resp blockC.j] : gyerens 

3 1490 13 B . IF CHSEQL(.responsel0J, .responsel1), 

3; 1491 1 ¢ 7 -resp_len, -sequence) 

3 1436 15 7 THEN (index = .7; EXITLOOP); 

3; 149 1258 6 END; 

> 1496 1585 6 IF .index NEQ -1 

3; 1495 1586 g THEN EXITLOOP; 

; 1698 1587 END; 

3 149 1588 4 END; 

3; 1498 1589 4 

3 1499 1590 4! 

3 1209 133) ? : If still no match, then return saying that the terminal type is unknown. 
3 1208 1398 4 IF .index NEQ -1 

; 150 1594 4 THEN 

3; 1504 1595 BEGIN 

3; 1505 159 

3: 1506 159 ! 

3; 1507 1598 : T100J Looks almost Like a VK100, except that the character after the 
3 1308 1233 “;""is a2. If that's what we have, then set it up that way. 

3; 1510 1601 IF .index EQL term$_vk100 

3; 1511 1on6 5 AND “goquencet .resp. tent EQL ‘2° 

3 1216 160 THEN index = term$_vt100; 

3; 151 1604 

3 1514 1605 : 

3; 1515 sone 1 In the VT1xx family of terminals, the presence of the advanced video 

; 1218 160 ! is based on the character AFTER the "’;’'. if this character, translated 
3; 151 1608 ' to a “‘real’’ number, has bit 1 set (i.e. 2,3,6,7) then the terminal has 

; 1318 1609 ! the advanced video option. 

3 151 1610 ! 

3; 1520 1611 If .index EQL term$_vt100 

: 1521 a OR .index EQL term$_vt101 

3 93 § 161 OR .index EQL term$_vti 

3 15 1614 OR .index EQL term$_vt! 

3: 1526 1615 OR .index EQL term$_vti 

3: 1525 1918 OR .index EQL term$_vt151 

3; 15 $ 161 OR .index EQL term$_vti § 

3; 15 1913 OR .index EQL term$_vtl 

3; 13 3 161 AND 

3 15 1620 ( BEGIN 

3; 1550 1621 7 LOCAL char : BYTE; oa 

3; 1531 1622 7 char = .sequencel.resp_len] - ‘0’; 


H 13 
vO4-600 1er$p-198e 12:09:00 Eetiun SneSsetrenacassss Pane 6s 


g .char<1,1> 
END 


BEGIN 
LOCAL CHAR : VYECTORC3,BYTEI; 
AR = *;11°; 


PTR = CHSFIND_SUB(.10SBC3]-1, .SEQUENCE, 3, CHAR); 
hacia 


SRLFREAN 


SE ttée.clr = .tt2 cir OR tt2$m_avo; 
- index EQL term$_VvT200_Series 


PEAN—"OOONOUEw 


EN tt2_set = Ri mit OR Etsbecave 


eT 
zr = 


LOCAL x 
opt206 : vECTORCS : NG] 
PRESET ( 


1 


5 


4 
5 


$m_regis, 
Sm_sixel, 


WII eee 


WN — OC CONAUVEWN “OVOONOUSWN—O 


gtacregiss 


NOUS WN—OO0OMW 


wnunnnnnun 


tt2_set = .tt2_set OR tt2$m_ 
INCR x from 1 TO 8 DO 
BEGIN 


local str: vector(2,byte); 
str[0) = ';'; 
strlijl = 'O'’+ oR 
°° = CHSFIND SUB(.iosb[3] - 1, .sequence, 2, str); 
wet CHSFAIC(. ptr) 
tt2_set = .tt2_set OR .OPT200[.x - 1]; 


END; 
flagsCset$v_vt200) = 1; 
END; 


LU SPUSVSVLUSUSUSVSVSUSISISI SSIS SISSY 
AAO UMIUVIMUVIVIW ere = 
SOOWOONOUS WN —OO0OW 


SSSLISTF 


SPER EE IIS 
PESTO COT OO ROSES SESE TEL OOOO COO C COLES ELSE 


The pro terminal has the terminal characteristic, regis. set if 
the extended bit option in the response string is set ( first byte 

gcter ee os suet response sequence). Otherwise the characteristic 
s turned off. 


Soo 
Mew 


an 


2% 


WONAUE WIN —O OO 


IF (,index EQL term$_pro_series ) 
THEN 


Qs 


BEGIN 
tt2_set = .tt2_set or stese.eve 3 
Hr gg eeevencet..resp_ton EQ. ‘1° 


sr se**~?*t = ,tt2_set or tt2$m_regis 
tt2_clr = .tt2_clr or tt2$m_regis ; 
END; 


! If the number 3 is present in the response then regis is 
! set for the vt102 ( the rainbow terminal can have regis) 


Ba Se Se Ge Se Se Se Ge Ge Fe Ge Ge Se Se Se Se Se FH Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ss Se Se Se Se Se Se Se Se Se Ge Se Se Se Ss Se Se Se Ge Se Se Se tese 
a a a a a Hi ak ak aa a aa ai ak kk at ak tk at es tt tt a 8 a a 
a a ee ee ee ee ad ed ed ed ed dd 


LVIV SVL. DS DD DDS DID ISI BNI NPP AAA AA AAA AAA III SINININI NINO NIA 


Sy Ab Ab Ab ib Ab hb sb bb bedh ebedbedh hh hb ch bedhead tbe 
POOOOCOO OO 
SN NNN 


er 


SPSSSE3 $= 
MSwn—O 


Be Ge Ge Se Se Se Se Ge Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Ss Se Ge See 
iii a tk ke ed ad ed 2 = a = 8 + 1s 3 
o 
See oSeR eS SEs 
Mw fe) 
QERRANLSSSLSSRANVS ~Oco 
SDMA AAAAAOUIUIN 


SPAAPAAOAOAAS 
i kd dd 


2 ot 
NOUS wo 
Ans 

o 

co 


0 
00000000 00000000 00100000 02000000 00400000 00000000 


58 


fein 1:895 ANGI OL ngc32 We Oa742, 


If _ .index EQL term$_vt102 
THEN 


BEGIN 
Local ste: vector(2, byte] ; 


str 
tr = = eb ting sub( .iosb{3)-1, 
A. g wot ch$fail(.ptr) 


. tt2_set = .tt2_set or tt2$m_regis ; 
return i; 


E 
' 
i 
' 
i 
tmp lock = .info_bloc 

tmpblock+4 = .(info_ Sléck+s): 
sateu chee = .chan, 


«sequence, 2, str) ; 


! If we went thru all the request sequences and nothing was found, then 
signal saying that the terminal type is unknown, and return. 
b 


SPLITS,NOWRT ,NOEXE ,2 
gt29 ? 


0, 4194304, 33554432, 
96971 7152, 0 


SCODES,NOWRT ,2 


Saye R2 R2,R3,R4,R5,R6,R7,RB,RI,-R10,R11 
ATA OrhER R6 

(R63, R 

40(R65, 12(SP) 
¢ (R6). R 

0, P.ABY, RESP_BUFFER 
#, 1 
29§ 
I, R1 
TERMS_REQBLKCR1], RO 
(RO) 


rune = io$_setmode, 
sich (get8 uri teerr AND NOT sts$m_severity OR sts$k_warning, 
- dev_desc, 
set$_unkterm); 
RETURN 0; 
END; 
-PSECT 
00000004 OOICC P.ABY: .LONG 
0021C P.ABZ: .LONG 
00000000 00200000 00234 
-PSECT 
OFFC 00000 INQUIRE_TYPE: 
-WORD 
5E FF58 CE 9€ 0000 MOVAB 
8 S AC 3 000 MOVL 
8 A6 YE 00008 MOVAB 
Oc AE 8 A6 YE OOOOF MOVAB 
59 4 A6 YE 00014 MOV 
AE 0000° CF 0050 F 28 00018 MOVC 
08 AE oth gf 88 1 MNEGL 
3 BRW 
3} 08 “i 4 028 1% MOVL 
0 0000000 vee D 6 C MOVL 
DD PUSHL 
04 bo 3 PUSHL 
7E 04 D 000 MOVQ 


4(RO) 
#4, -(SP) 


1048576, 0, 0, - 


1452 


1474 


1485 | 


1496 
1498 


1506 


VO4~000 


48 


7E 50 sBF 
6C AE 
7E 
4 AE 
7E 48F 8F 
7 38 “6 
000000006 00 
"Oe 50 
0 4 AE 
04 AE 0 AE 
16 4 AE 
0000022C = BF 4 AE 
oc 
xC 04 AE 
06 
06 A 
022 
01 08 AE 
44 AE oc gE 
50 oc af 4 
AE 60 00008000 4 
7E 
7E 
58 AE 
7 
7E 2 
7E 38 46 
000000006 00 oc 
0000022C = BF 04 , 
01A6 
50 59 AE 
57 52. COA 
57 5 
10 AE 56 AE 
10 AE 
67 10 AE a3 
6E 7} 
58 10 _ A 
63 BF FF at 
FF AB47 
51 6€ : 
2 01 «Al 
4 01 
40 
50 54 if 
000000006004 
5A 9E 


rae 
~Sep-1 


1 


aon 


COOQOOCQOQOQOOOOOOOOOOOCOCOO 


SoOoooooooooSo 
COOoOCooCoooooo 


wO@@omon~ 
aN 


oo 
oo 
op, 


CoOooooooooo 
SoOoooooooooo 
S>SF0 


OPMMNTTHM WON ONO LN NOOO MG 9 | DB LOOM RLEOM OCR) “OW DN OOD LOO%O PS 


OQOQoQoQoQoQooooooooooooooooooooo 


BOM HO OE $$ OOS 9 9 (WI WN WOW" 9 MOINS NNO OWI 9 OMIT MO OWVOO 


3$: 


6$: 


$: 
. 


9$: 


E 
3 
ED 
EF 
F4 
F6 7$: 
; 
7 


Be 12:09:90 


MOVZBL 
PU 


#80, <(SP) 
RESP_BUFFER 
=(SPY 
1058 
#18679, -(SP) 
56(R6), =(SP) 
#i2, SYS$Q10W 
RO, STATUS 
STATUS, 2$ 
10S8, $TATUS 
STATUS, 3$ 
TATUS, #556 
TATUS, #60 
STATUS 
0$ 
i #1 
@12(SP), TMPBLOCK 


#4, 12(8P), RO 
#38768. (RO), TMPBLOCK+4 


#35, -(SP) 
56(R6), -(SP) 

#12, SYS$Q10W 
STATUS, #556 

5$ 

298 
RESP_BUFFER+1, RO 
10SB%2, SEQUENCE 
RO, SEQUENCE 
10$B+6, 16(SP) 
16(SP) 

#39, 16(SP), (SEQUENCE) 
RI 

, PTR 


(SP), RESP_LEN 
(RESP_LEN)CSEQUENCE), #99 


9, -1(RESP_LEN) CSEQUENCE) 


NCE, PTR, R1 
» RESP_LEN 


=-c 


@42—B2—"4.Oao i ~~ 
_ 
Ciel BA! 


AMIN AMANA OP 


L2zowm Do 
a 


)F 


vo 


RO 
FaBL€ +20CROJ 
e R1 
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Kk 13 
16-Sep-19 :10: AX-11 Bliss-32 V4.0-742 Pa 0 
12: att 93:49:98 CLIUTL.SRCJSETTERM.B32;1 = (as 
39 13 14 BEQL =s«a13 : | 
- oooooo60040 oF 115 PUSHAB saris TABLE*24(R0] ; 1577, 
4 : ce 11 MNEGL #1 : 1582. 
50 14 BEGS 0 00153 108: Bow i P)CyI, RO ? 1580. 
00 04 80 6 SD 8 " (MPES = (ROD, aad 1R6) , #0, RESP_LEN, (SEQUENCE) ; 1581. 
5 1 12F BNEQ 11$ : 
69 4 06 131 MOVL (R9) : 1583 
4 11 001 BRB b$ : 
9 5 A Fe 136 11$:  AOBLSS R10 J, 10$ + 157 
FFFFFFFE © 8F 69 oT OO1SA 128: CHPL (R95, i) : 1585. 
B8 54 000000006 gf i O9145 13$: AOBLEQ ATERMS NUM-1, I, 9$ : 1572 
FFFFFFFF 8F 69 o 818 14$: Hag (83) Rei 3; 159 
one 4 09134 BRW 29$ : 
000000006 8F 69 Dt onn3e 15$ CMPL (R9), #TERMS_VK100 + 1601) 
32 6B? 91 0180 CMPB = (RESP_LEN) CSEQUENCEJ, #50 : 1602) 
97 fs 00164 BNEQ 16$ : | 
69 000000006 BF »D 00166 MOVL #TERM$_VT100, (R9) + 1603) 
000000006 8F 69 Dt 00160 16$: CPL (R9), BTERMS.VT100 + 1611) 
000000006 8F 69 o4 00176 cMPL (R9), #TERMS_VT101 : 1612 
000000006 8F 69 D4 0017 CMPL (R9), #TERMS_VT102 + 1613 
000000006 8F 69 D4 00188 CPL {R9), #TERMS_VT105 > 1614. 
000000006 8F 69 pi 00191 cMPL (R9), #TERMS_VT125 : 1615 | 
000000006 8F 69 D1 0019A CMPL (R9), #TERMS_VT131 : 1616) 
8 13 OO1A1 BEQL 18 ; 
000000006 ar 69 p OO1AS CPL (R9), #TERMS_VT132 : 1617 | 
000000006 8F 69 Di O1AC CMPL (R9), #TERMS_VT173 1618 | 
50 6847 0 a8 0185 SUBB3 #48, (RESP np CHAR : 16 2 
1D 50 1 £0 001BA BBS CHAR : 16 
18 00 00313138 «= &F £0 O18 INSV i 867. #0 CHA + 1628 | 
10 A 18 AE 03 ; oice MATCH CHAR. Notsps.” cSEQUENCE) ; 1629 | 
53 09 tte MOVL i. R3 : 
p 0104 178: DECL R ; 
6E 0106 MOVAW -(R3), PTR : 
6 FH 1D BNEQ 19$ > 163 
03 «AB 8 88 001DB 18$ BISB2 #8, 3(R8) : 163 
4 11 OO1DF BRB o$ ; | 
OF Ab : 88 oie] 19$:  BISB2 #8, 15(R6) > 1634. 
000000006 8F ? Di OiES 208: cmPL (Rd), #TERMS_VT200_SERIES ; 1635 
24 «AE 0099" CF 0 é QiEE MOVC a ..P.ABZ, OPT200 : 1647 | 
03 «AB 8 O1F BISB2 #8, 3(RB) > 1648 
54 1 p o1F9 MOVL #1. x > 1649 
1¢ AE B 1FC 21$: MOVB #59, STR > 1652 | 


Bu 


67 


67 


3; Routine Size: 


1 AE 
10 AE 
dD 
10 AE 
08 AE 
50 


695 bytes, 


oS 1 
1c AE ; ; 
53 
6E 
0 14 
gf 20 AESS C 16 
4 F 18 
1D = =A6 8 if 
000000006 8F D1 3 
03 As 3 sh 055¢ 
31 oe? $1 90 
§ is 0 
03 As . 0 
4 11 Q023A 
OF A6 0g 88 3 C 
000000006 8F 69 01 40 
18 if 0247 
$8 AE 3338 BF 4 0249 
0 AE 8 9 0024F 
03 13 00256 
53 o¢ 0 00258 
6E 3 00258 
04 135 0025€ 
03 As 02 88 38 60 
50 01 DO 00264 
04 00267 
01 000000006 8F F1 00 
44 AE OC BE 00 0027 
OC AE 04 C1 0027 
48 AE 60 pO 00270 
7E 7C 00281 
7E 7C ps8e 
7E D4 00285 
58 AE OOF OS 
43 7c 88 8A 
7E 23 70 00 Bc 
7E 38 AG 3C 0028F 
7E D4 00293 
000000006 00 ge FB 00295 
000000006 8F ODD 80 9¢ 
20 AG DF 002A 
1 00 4 A 
00000000" 8F DD 002A 
000000006 00 4 FB OO2AD 
50 D4 00284 
04 00286 


Routine Base: 


SCODES + OA82 


18 
14 


3 


~™ 
~m 
bad 


™m 
- w 
eo wn 

oe 


rr 
ow 
A 


~m 
~ 
wn 
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~ 
co 
wn 


298: 


30$: 


1 
-Sep-1 


9c 12:09:00 EeUTUtL*SneSsetrenacesest 


ADDB3 
MATCHC 
BE 


#48, X, STR+1 
£6 STR, 16(SP), (SEQUENCE) 


OPT200-4¢ 43, (R8) 

a x, 218 

# ; 89(R6) 

(ROS, #TERMS_PRO_SERIES 

#8, 3(R8) 

(RESP_LEN) [SEQUENCE], #49 


#2, 3(R8) 
§ 


#2, 15(R6) 
(RO), #TERMS_VT102 


#13115, STR 
We, STR, 16(SP), (SEQUENCE) 
#2, _R3 

-(R3), PTR 

#2, 3(R8) 

#1, RO 

#TERMS_REQNUM-1, #1, I, 1$ 
@12(SPY, TMPBLOCK 

#4, 12(¢5P), R 
(R6), TMPBLOCK+4 
=(SP5 

-(SP) 

-(SP) 

TMPBLOCK 

#35, -(SP) 
56(R6), -(SP) 
=(SP) 

#i2, SYS$Q10W 
#SETS_UNKTERM 
32(R6) 


#1 
#<SETS_WRITEERR&-8> 
+e LIBSSIGNAL 
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; 1619 1709 1 ROUTINE get_term_def (data_buffer) = 

; 1620 79 BEGIN 

3; 1621 171 

3; 16 § ar !oe 

3 ? at Functional description 

3; 1625 1715 : This routine searches TERMTABLE.EXE for a terminal definition. 
; 16 $ 178 : We look in TERMTABLE only if we don't recognize the terminal 
ih cee ae Bi 

3; 1629 1719 : This routine will extract various information about the terminal 
: Mb : Vf Y } from its definition. This information is stored in INFO BLOCK. 
3; 16 é 17 ¢ : Inputs 

3 19 \" f } DATA_BUFFER = contains all meaningful data 

3; 1635 1725 : Outputs 

3 16 17 $ : fills in various fields in INFO_BLOCK 

3; 16 17 !== 

; 1638 1728 

3; 1639 1729 MAP 

3: 1640 1730 data_buffer : REF VECTOR; 

3; 1641 1731 

3 1046 17 ; MACRO 

3: 1646 17 

3 1644 M 1736 $first_item(a,b,c,d) = 

3: 1645 M 1735 

3: 1646 M 1736 a 

3 1647 M 1737 

3 1648 1738 z, 

3: 1649 1739 : 

3 1939 e Ho Scap_initCcapability,action,characteristic,longword_number] = 
3 165 M 174 ZNAME (smg$k_, capability) 

1888 m 178 ’ ‘ 

3: 1654 1744 %, 

3; 1655 1745 : - 

3 1636 Ho $set_initCcapability,action,characteristic,longword_number] = 
: 1658 M 1748 S$first_item( ZNAME(term$l_set,longword_number) ) 

3; 1659 mM 1749 

3; 1660 1750 %, 

3; 1661 1751 

r 1966 2 1736 $Sval_initCcapability,action,characteristic,longword_number] = 
3: 1664 Mm 1754 ZIF ZIDENTICAL(action,set) 

i Het 

; 1869 tl 1789 2FI 

: 1668 m 1758 

3 1662 1759 i, 

: 1670 1760 ae J A 

3; 1671 M 1761 Smsk_initCcapability,action,characteristic,longword_number]) = 
3 1676 i] 1796 

3 167 M 176 ZNAME( tt, 

: 1674 M 1764 

3 1675 Mm 1765 ZIF ZIDENTICAL(Longword_number,2) ZTHEN 2 ZF1, 


53. 
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Page 
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CLIUTL.SRCJSETTERM.632;1 


13 
Sep-1986 12:09:00 


N 
6- 
be 


1 
1 


M 
M 
M 
addr, 
quest_code), 
severity OR sts$k_warning, 


Tre 
Zref(4), 
sitesi 


tref 
ret_length 
wb 


we use a macro. 
ret 


I 
I 
I 
I 
TERM_DATA several times. 


neater if 
data( term_table 


cap 
cap_ 
cap 
cap 
writeerr AND NOT sts$m 


. dev_desc, .status); 


RETURN 0; 


1 


$m_,characteristic) 
L(set$ 


vector 
vector 
BEG! 
$I 
END; 
ble_addr, 
ength 


cap_size = ZLENGTH/4; 
msk_vector 


status = smg$get_term_ 


If NOT .status 


cap_vector 
set 

val 

BEGIN 

THEN 

END 


We need to call SMGSGET 
T 


The code will look 


status, 
term_ta 


$get_term_data(request_code) = 
ret_ 


$Sbits() = 
LITERAL 


OWN 
z, 
‘ 

i 


Bind data to meaningful names 


bind_data; 


be ee Ne we Ee A 95 Ae SAD me eOUNNT DOOK— UM TNOR. DOO w 
OOF PPP P_P_KR.00000000000000000000 NINN 


LLL EO 


Or-DOorerm sw COO UM ~TFTN OP O NUN THOR WM TNHOPR WN TNOK ™N 
Sob peo BRS OSOODO COS SSS SS SOS OS OOO SO eee ee RIN RUN RRUAIIN 


ooo0o OOOOOOOOOOORRAPRRLALARAAAAARRARARAR RRR R RRR RRR RRR RR. 
ELL 


Peer ee tere se ee sere eee sere *S 2S SS FS cere se re *e te ce *e FS ee ee *Se Fete te *ersrerea rea *S*e ete *erter*te*ea*e*e *e*te*e*e*e*e*e*e*e*e *e 
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55 
14-Sep-19 CLIUTL.SRCJSETTERM.832;1 (10) 


P > $ table descr $s the correspondence between 

1735 1824 ' Thi le describes th d b TERMTABLE 

3 1 1825 ' capabil ty names and terminal characteristics. 

3 3 1 8 ' for gzenp e, the ADVANCED_VIDEO cape ility causes the AvO 

3 i : ! bit in the énd terminal characteristics longword to get set. 

: 1 40 P 1 $BITS( 

3 174 Pi 

3 1oe6 4 : ! Capability ! Action ' Characteristic ! Longword # 
$1764 P 1 ADVANCED_VIDEO, SET, AVO ; 
> 1745 Pj ANSI CRT SET. ANSICRT, , 
: 1746 P 1835 BLO R MODE, SET. BLOCK ; 
> 17% P 1 DEC_CRT, SET. D ccRE, 
; 1748 P 1 EDIT SET. DI ; 
+ 174 P 1 1cuf BIT SET. IGHfBIT, i 
: 17 9 P 1 YSICAL_FF, SET, MECHFORM, ae 
: 17 P 1 FULLDUP CLR. HALF DUP, 1, 
: 17 é P 1 LOWERCASE, SET. LOWER, ¥ 
: 17 Pj 4g REGIS, SET, REGIS, 2. 
+ 1754 Pj SCOPE, SET, SCOPE, : 
: 1755 P 1844 2 SIXEL. GRAPHICS SET, SIXEL, g. 
: 17 § P 1845 2 SOFT CHARACTERS, SET. DRCS 

: 17 1846 2 PHYSTCAL_TABS, SET, MECHTAB, 15; 


D 14 
64-000 1e-Sep-198e 12:09:00 Eetiun SsaeSsetrenAcasos 1 Page ay 


On-the-fly activate the SMG package 


APIA 


wn 


LIBSF IND_IMAGE SYMBOL (SD_SMGSHR 

%aSc id’ SAGSINIT TERM TABLE’, SSMGSINIT_TERM_TABLE); 
LIBSFIND_IMAGE SYMBOLTSD SAGSHR , 

aScid’SAGSDEL TERM TABLE’, SSMGSDEL_TERM_TABLE); 
LIBSFIND_IMAGE_SYMBOL (SD SMGSHR, 

%aScid' SAGSGET_TERM_DATA'. SSMGSGET_TERM_DATA); | 


LEAF 


PAA AIT 


! 
See if this terminal is defined in TERMTABLE.EXE. 


WN" O CONOUNES wr" OOO 


TS: 


BEGIN ! error = not defined terminal 
S$} aoe yt og AND NOT sts$m_severity OR sts$k_warning, 
- dev_desc, 


oo 
o 
uw 


con” (smgSinit_term_table(name_desc, term_table_addr)) | 
| 


zs 


et$_ifvquaval 
2. name_desc, SD_DEVICE_TYPE); 
RETURN : 


SS sao euro 
“OC VOONOUES WN "O0O@ 


CoCo 

wr 
09090900 CD 
SNNIOO 


COONAN WN $ O OONOUS WOO 


u 


' 
! Found this terminal name in the definition file. 
Now get the ‘foreign’ terminal number assigned to it. 


pt 4 


oo 
oon 


$get_term_data(smg$k_vms_terminal_number); 


' 
Store the terminal number 


SN 
Kuss se 


SESEAN= 


index = .ret_buffer; ! use this in log_results 
info_block(term$b_type] = .ret_buffer<0,8>; 
! use this in Q10Ws 


>] 


oo 
WOOD OOOOOOO NNN 


! 
: Next get the width and page size of the screen. 


38 


DONO US wit — 


$get_term_data(smg$k_columns) ; 


' 

! Save the width. Note that this is opt tenet information in 
! a@ terminal definition so we may not have received anything 
; in our buffer. 


<©00 00 0009 00 09 00 On 0 0 Cd 0 00 OD OD Cd OD CD Cd 09 CD Cd CD CD CD CD CD 
oooowovwovon 


ones 


So 


If _ .ret_length NEQ 0 
THEN 


Bae Se Se Se Ge Se Ge Se Se Oe Se Se Ge Se Ge Se Ge Ge Ge. Se Se Se Ge Se Ge Oe Se Se Ge Se Se Se Ge Se Se Os Se Se Se Oe SH Se Gs GE Ss Oe Se Se Se Ge Oe Se Ss Oe Se ee 
ek a ae at es et = = i ee ee ee ee ed ed ed ee 
i a ed ad ed wd 


4 a a st se 


oo 


BEGIN 
IF .ret_buffer GTRU 511 
THEN 


14 
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3 1 18 1 4 BEGIN 

; 18) 1905 4 LOCAL desc : vec TORte? 

; 181 1 4 buf : VECTOR BYTE); 

; 181 1 4 road df mae 

t 1 ; 4 escliJj=buf; 

: 1821 1 4 fao(ZASCID ‘!UL*,desc,desc,.ret_buffer); 
31 g 1910 4 SIGNAL (set$_invquaval, , desc, SD_WIDTHS; 
3 3 191 4 RETURN 

3 1824 1316 END; 

: : 5 ba jafo_plecklteratu_wisth = .ret_buffer<0,16>; 
:1 $ 1915 ; 

g : 3 1318 $get_term_data(smg$k_rows); 

: 1830 1918 2 | 

3 ; 1 133 Save the page size. 

:1 5 1921 2_ 

; ; ¢ § if gret.length NEQ 0 

; 8 1924 BEGIN 

3 \3 : + 5 {Fg retabutter GTRU 255 

; 1835 19 $i BEGIN 

3; 1840 1928 4 LOCAL desc : VECTORE2), 

; Hee 1929 4 buf : VECTOR(64,BYTE); 

3 1 1930 4 desc(0)=64; 

: 18e$ 1931 4 descl1J=buf; 

> 1844 1336 4 Sfao(ZASCID ‘!UL',desc.desc,.ret_buffer); 
3 1845 1933 4 SIGNAL (set$_invquaval, 2, desc, SD_PAGE); 
3 Hr bt 4 RETURN 0 

3 184 1935 ; END; 

3 1849 1389 Jake prack’ terete pagel = .ret_buffer <0,8>; 
: 1850 1938 ; 

3; 1851 1939 ' 

: 193¢ 1940 ' Get the fill characteristics. 

: Bee ye 

; 1855 1948 Sget_term_data(smgSk_cr_fill); 

: 1887 1945 2! 

3 ' 38 1298 : Save the carriage return fill count. 

:1 1948 E 

3; 1861 194 IF .ret_length EQL 0 

: 1 ; 1950 THEN 

: iBee 1982 nu 

:1 195 GIN 

3 1 3 1954 BIND set! = info_block(term$l_set1] : Sbblock; 
: : See it .gret put tor GTRU 9 

1 on ee 

+ 1871 1989 4 u : VEC TORES2 BYTE): 

3; 1872 1960 4 desc(0)=64; 


————_--________ 
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yoa~800 1er8eb= 138s 93:59:98 eM OkhessEe ha She 296 47) 
; 187 1961 4 gesct) Jeet: 
3: 187 1306 4 fao nett "!UL* ,desc,desc,.ret_buffer); 
; 187 1965 4 BL ONAL (set invquaval, 2, desc, SD_CRFILL); 
foe Be oe 
: 187 1966 erfill = .ret but fer: 
3 187 196 seti(tt$v_crfTllj= 
2 1oe8 ND; 
; j 1370 Sget_term_data(smgSk_lf_fill); 
:1 197 
: 1885 1398 ' Save the Line feed fill count. 
a 1978 5 | 
: 1888 1976 IF .ret_length EQL 0 | 
3 1 197 
: 1890 1378 Lffill=0 
ie ag ye 
: 1898 1981 BIND set! = info_block(term$l_set1] : $bblock; 
3 1894 1386 IF .ret_buffer GTRU 9 
: 1896 1984 & MEN BEGIN 
; 1899 1985 4 LOCAL desc : VECTOR(2), 
3; 1898 4 + 4 buf : VECTORL64,BYTE); 
3; 1899 1987 4 desc(0)=64; 
; 1900 1988 4 descliJ=buf; 
3; 1901 1989 4 Sfao(ZASCID *!UL*,desc,desc,.ret_buffer); 
; 1908 1990 4 SIGNAL(set$_invquaval, 2, desc, SD_LFFILL); 
ie oie fae Br . 
: 1905 1998 Lffill = .ret_buffer: \ 
3 1398 1994 setiCttSv_lffTllJ=1 
3; 190 1995 END; 
oes 
: 1910 1998 i Combine the resutant fill into one Longword. 
eg! 
; 13918 001 fill = .LFFILL“B OR .erfill; 
HB 
: 1916 90% i Get the frame count. 
: 1318 008 5 
3 1919 009 $get_term_data(smg$k_ frame); 
eB 
: 19 ¢ 10 i Save the frame count. 
1 ee 
; 19 5 18 IF retatength EQL 0 
£198 13 3 «cg franerd 
+ 1929 O17 BEGIN 


en 
33 


—>—) 


LELSSSPEESSSSSesess 


DONA VEWN “OC OOBNOUSWNO0@ 


wn 
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SESLSESLSLSSSSISSSSSE 


i i 
MEWN OO 
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ee ee ce ts ee ee a ee ee ee ee ee a ee ee ee a ee ee ed ed ad ed 
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OOOCCCCoCoO 
—— 
SOOONAOVUES WN (CO OODVNOU SWI OO000 


OOOCoCCoCoooCoooo 


Www 


RRARARARAAADE ERE RE RR EE 
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3 
NIWA BS BESS SSF BWIA NNW AINA AAAI III PIPINIPUNPIPINININNA BB BP PPP PW 


SSEz= 


SATE: 
fwn 0 0e 


14 
1$-Bep-1964 01:10:06 yan Bl iege3 
ame = .ret_buffer; 


ff 
at (. frame EQL 6 OR (. frame GEQ 5 AND . frame LEQ 8)) 


tet ey 


r 
F 
H 
BEGIN 

LOCAL desc 
desc(0)=64; 

esc 


=buf; 
fao(ZASCID ‘!UL',desc,desc,.frame); 
SIGNAL (set$_invquaval, , desc, SD_FRAME); 
RETURN 


: VECTOR(64,BYTE); 


ND; 
arity = ttSm_altframe or parity; 
parity<0,4> =". frame $ z 


i Set the terminal characterics bits that correspond to the various 
boolean capabilities. 


INCR index FROM 0 TO cap_size-1 DO 
BEGIN 


LOCAL 

set_position; 
$get_term_data(.cap_vectorl.index]); 
set_position = .set_vectorl. index]; 


! 

! If the capability is not defined, then do nothing. 

! If the capability is defined to be a 1, then set the 

: bit representing this capability in the aegrepr Sete 

: “"set’’ Longword, (This could be term$l_set! or term$l_set2. 

! If the capability is defined to be a 0, then clear the 

! bit representing this capability in the appropriate ‘'set’’ Longword. 
} The above action reverses if the val_vector is 0. 


IF .ret_length NEQ 0 


BEGIN 
BIND 
set_longw = info_block(.set_position,0,32,0); 
IF -ret_buffer EQV .val_vectorl. index] 
THEN set_Tongw = .set_longw OR mst vector(. index) 
ELSE set_longw = .set_longw AND NOT .msk_vector(l. index] 
END; 
END; 


eB RISE Se PIE ed SE we ara ee SIE SL gy tS SEAM 


fr 
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$bu~00 19-808- 1382 93:09:98 CLIUTL.SRCJSETTERM.B32;1 
zs Re 
31 7 i Done with this terminal definition. Get 
3 1996 f } rid of the virtual memory used to hold TERMTABLE.EXE. 
: 199 . 
3 1998 : smg$del_term_table(); ! don’t care about return status 
: 1995 0 : RETURN 1; 
3; 1996 0 END; ! end of routine get_term_def 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


54 SF 4D 52 45 54 SF 54 49 4E 49 24 47 4D 53 0023C P.ACB: . ASCII \SMGSINIT_TERM_TABLE\<0> 
00 45 4C 42 41 00 of 
a4 349 0250 P.ACA: .LONG 17694739 
00 0099" 0254 «ADDRESS P.A 
41 54 SF 4D 52 45 54 SF 4C 45 44 es 47 4D 0258 P.ACD: .ASCI] \SMGSDEL_TERM_TABLE\<0><0> 
00 00 45 4C 4 0267 
344354 0 $6 P.ACC: .LONG 17694738 
0000000° 0027: eADDRESS P.A 
41 44 SF 4D 52 45 54 SF 54 45 47 ¢ 47 4D 0274 P.ACF: .ASCII \SMGSGET_TERM_DATA\<0><0><0> 
00 00 00 41 54 00283 
01060011 00288 P.ACE: .LONG 17694737 
00000000" 00 of +ADDRESS P.ACF 
00 4C 55 st 0 P.ACH: .ASCII s5Ubts > 
344 3 00294 P.ACG: .LONG 17694723 
09900 0" 00298 «ADDRESS P.ACH 
00 4C 1 Q029C P.ACJ: .ASCII \!UL\<0> 
oN 0003 +4 AO P.ACI: .LONG 17694723 
0000000" 002A4 «ADDR P.AC 
00 4C 5 st O2A8 P.ACL: .ASCII \!UL\<0> 
33 3 QO2AC P.ACK: .LONG 17694723 
0920099" 0280 »ADDRESS P.A 
00 4C 5 st 02B4 P.ACN: .ASCII \!UL\<0> 
98 0003 00288 P.ACM: .LONG 17694723 
09 0000" 00 Bs ADD P.AC 
00 4C 5 O2CO P.ACP: .ASCII \!UL\<0> 
34344 3 0024 P.ACO: .LONG 17694723 
0000000" 002C¢8 -ADDRESS P.ACP 


-PSECT SOWNS,NOEXE,2 
00000006 00000005 00000002 00000001 0000C CAP_VECTOR: 
.LONG 1, 2, 5, 6, 7, 8 22, 9, 12, 17, 18, 19, = 
00000011 0000000¢ 20098075 o0098016 o008¢ 26, 31 
00000008 00000008 00008 000 08 00044 SET_VECTOR: 
seme: AO nel .LONG 68, 8, 8 8 8 4, 4. 4 4 8 4, 8 8 4 
00008 000000% SHRREEEE $9888 BRtH 
00000001 00000001 00000001 00000001 0007¢ VAL_vECTOR: 
al meemaael sail sat ea ry oe oe oe Me ee ee et oe re 
—e Bo00000% 0000001 SooaC 
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Sb. 500 ae eats rik Pe eS cp ih hg Pe ee ce age 9} 
0008000 10000000 20000000 04000000 01000000 08000000 00084 MSK.VECTOR: 


Gor00000 00007800 62000000 eno00080 gexegNER paRETNRR Gane Tn RRR: TE7Cb Beas Tikbszes gees 


.EXTRN SYSSFAO 

.PSECT S$CODES,NOWRT,2 
OFFC 00000 GET_TERM_DEF : 

WORD 


- Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1709) 
B G E 0000 MOVAB LiBSF IND. IMAGE_SYMBOL, R14 : 
BR Sooobbbe 86 SE Shn0d ROvas SYSSEAQ, R10. 
38 000' cr 9 001 MOVAB $SMGSGET_TERM_DATA, R9 : 
4 000° 9E 901 MOVAB SD_SMGSHR, RB&~ : 
5E Ad AE 4 OO1A MOVAB spotee) §p : 
54 AC p OO01g MOVL DATA BUFFER. RG : 1808 
36 0 Aas 9E 000 MOVAB (RZ), R : 
5 8 AQ OE 900 6 MOVAB 40(R4). R : 
FS AD 9F OO02A PUSHAB SSMCSINIT_TERM_TABLE : 1851 
024 c8 OF 909 D PUSHAB P.ACA ; 
8 DD 00031 PUSHL 3 
68 03 FB 00033 CALLS #3, set IMAGE _SYMBOL : | 
AD 9F 000 PUSHAB $SMGSDEL_TERM_TABLE : 1853. 
0264 £8 9F 000 PUSHAB P.ACC : | 
§ DD 00030 PUSHL Rs : 
68 g FB 0003F CALLS #3, LIBSFIND_IMAGE_SYMBOL : | 
9 DD 00042 PUSHL Rd > 1855. 
cae Sa 3 
68 03 FB Q094A CALLS LIBSFIND_ IMAGE_SYMBOL ; | 
10 AE 9F 00040 PUSH 4 RM TABLE _ABDR + 1862) 
44 AG 9F 0005 PUSHAB 6 (R&) ; 
F8 Bg 02 FB 005 CALLS , aSSMGSINIT_TERM_TABLE : | 
23 E 005 BLBS RO” 1$ ; | 
ooac CB OF 0005A PUSHAB SD. DEVICE_TYPE > 1865 | 
44 Aa OF 0005E PUSHAB 68TR4) : 
02 OD 00061 PUSHL ; 
0077132A er DD 0063 PUSHL #7803690 : | 
01 0D 00068 PUSHL #1 : 
00000000" 8F DD 0060 PUSHL #<SETS VRITEERRE-8> ; | 
000000006 00 a g Fe 9075 CALLS a LIB$S Pe 
08 AE OF b070 1$: PUSHAB RET_BUFFER + 1877 
10 AE 9F 000 PUSHAB RET-LENGTH ; | 
Oc AE 04 00 0008 MOVL #4,712(SP) ; 
OC AE OF 0 PUSHAB 1 SP) : 
OC AE E BF OA A MOVZBL #227, 12(SP) ; 
¢ AE 9F O008F PUSHAB 1 ; 
2 AE 9F 000 2 PUSHAB TERA TABLE ADDR 3 | 
00 89 F 09 CALLS #5, SSSMGSGET_TERM_DATA : 
55 g D 099 MOVL RO STATUS F | 
29 E 9C BLBC STATUS, 2$ ; 
34 AG 08 AE 0 009F VL  -RET_BUFFER, 52(R4) > 1883) 
01 AB 0 AE OOA4 VB ss RET~ FFER, 1(R3) > 1884 | 
AE 9F O00A9 PUSHAB RET BUFFER ; 1891 | 


—————— 


0-742 Page 95 
is -32 SRB Soe 
ae 72:09:90 Eero seSserrennce 
-Sep- : $ : 
1e-Sep-1986 12 RET LENGTH : 
we ae 1RtSP) : 
« PORE Bie #521, 12050) : 
TTERM F m0 12($ ADDR TA : 
voe-b00 ee ff FER FUSS TERM ABLE OOF ap i 1899 
ae 3 ‘ Rove #0. Status £1902 
F ST NGTH ; 
C BLBC TLLENG 1907. 
00 2 3 E itt 2 bor RET_BUFFER, #511 : 1308 | 
é Oc AE 3 000¢ CHL RET. : 1909 
3A 1 0 STi, 984, DESC ; 
8 Te Boose ROVAB BUF DESC +4 
000001F F : 40 BF 9A G0pF PUSH pest Fed 
54 14 dD HAB DE : 
58 AE 98 he of tH PUSHAB ai. Syssra0 F 
Tas o03F) pushag $0 ul a 
6A 4¢ Ae oF Gor? ” psn : 803690 ma ; 191 
58 DD 00 6 R, 2¢ , 
RW UF FE ° . 
320 BF B0 00109 nOvW RET-BUFFER 
00771 O1AD 0105 4$: PUSHAB RET"LENGTH ; 
AE 80 OO10A 5$: PUSHAB “12(SP) 3 
A3 $8 AE 3F 010D VL + otsps ; 
* OO Be MOVIOL #226, 12(SP) 
RE OF $0117 PUSHAB 1 AF nave appr M_DATA aes! 
ae EF a O9tt¢ PUSHAB AS. BuSnGSCET. TER . ; 1922 | 
E 11F CALLS s TU + 1925 | 
Oc AE ss 2 ee c 98 31 
20 FB 00122 MOV STATUS, TH : 
9 33 0 00199 6S: Tstt RET -LENG ee : 1931 | 
~. oe te bt anise CHPL -RET_BUFFER, # : 133) 
“ oN 5181 BLEGU ho6, DESC 
08 AE Ot ODI) ROVERL #04. DESC 
8F 1F 18 01 Vv SUT BUFFER 3 
000000F F ‘ 7 & aie see Dest ; 1933) 
34 A 14 DD HAB DE : | 
$8 AE i oF 00168 PUSHAB bah cseao : 1936 
- 6 es uate : 
8 1A 7$: HOVE 4 Ad : 
0 “ 30 13) 8$: PUSHAB RF - ¢(SP) : 
ut gs 10 AE OF 165 PUSHAB 45S) csp) 
Re 9 00169 MOVZBL ee. ADDR 
AE ; oO OS ae PUSHAS TERR. TABLE. 
oc DE OF OA 194 PUSHAB P 
E Oc AE OF 174 
oc A of AE 9F 


K 
oaeeen bbe 2:09:56 Kekrure Saeisesrenncesoc 


1 
1 

As MOVL 

re 9$: BLBC =: STATUS, y $ 


vw 
= 


158 


00 8 i f 1 CALLS #5, QSSMGSGET_TERM_DATA 
£9 001 
OC AE D5 001 TSTL RET_LENGTH 
4 1 1 BNEG 108 
D4 001 CLAL RFILL 
D 11 001 BRB 
09 08 AE 01 91 A 10S: CMPL RET BUFFER, #9 
1F 18 001 BLEGU 11$ 
54 AE 40 8F 9A 001 MOVZBL #64, DESC 
58 SOA 14 AE 9E 0019 MOVAB BUF, DESC+4 
08 AE bb 19A PUSHL RET BUFFER 
AE 9F 00190 PUSHAB DEST 
5c aE 9F OO1A PUSHAB DESC 
O2A4 9F OO1A PUSHAB P.ACK 
6A 4 FB OOIA CALLS #4, SYSSFAO 
5¢ As Hi QIAA BUSHAB SD CRFILL 
57 08 AE 0 O1AF 11$:  MOVL RET _BUFFER, CRFILL 
0S A3 04 88 00183 BISB2 #4,75(R3) 
08 AE 9F 00187 12$:  PUSHAB RET_BUFFER 
10 AE 9F OO1BA PUSHAB RET_LENGTH 
OC AE 04 DO 00180 VL #4, 7 12(SP) 
OC AE 9F 001C1 SHAB 12(SP) 
OC AE EO BF 9A 001C4 MOVZBL #224, 12(SP) 
OC AE 9F 001C9 PUSHAB 12 
20 AE OF 001CC PUSHAB TERM TABLE_ADDR 
00 8 0 4 001CF CALLS #5, SSSMGSGET_TERM_DATA 
5 50 DO 00103 MOVL = RO, TUS 
55 £9 00106 13$: BLBC STATUS, 18$ 
Oc AE DS 00109 TSTL RET_LENGTH 
4 12 001DC BNEQ 148 
2 D4 O1DE CLRL ss LFF ILL 
20 11 OO1E BRB 17 
09 08 AE D1 OO1E2 148: CMPL  RET_BUFFER, #9 
1f 1B O1e6 BLEGU 16$ 
54 AE 40 8F 9A OO1E MOVZBL #64, DESC 
58 OA 14 AE 9E OO1E VAB_ BUF, DESC+4 
08 AE DD OO1F PUSHL RET BUFFER 
58 AE OF OOTF PUSHAB DEST 
5c Oo AE. sOOF: «00188 PUSHAB DESC 
0280 C8 9F 001FB PUSHAB P.ACM 
6A 04 FB OO1FF CALLS #4, SYSSFAO 
6C AB OOF 02 PUSHAB SD_LFFILL 
68 11 15$: BRB 1$ 
52 08 A 07 16$: MOVL RET BUFFER, LFFILL 
0S A 0 0208 BISB2 #8,75(R3) 
52 32 08 O20F 17$: SHL. #8. R2, R2 
18 AG 5 0 13 BISL3 CRFEILL, Re, 24(R4) 
08 AE 9F 0021 PUSHAB RET_BUFFER 
10 AE 9F 0021B SHAB RETILENGTH 
Oc AE 04 D0 0021 VL #4, *12(SP) 
OC AE 9F 00 PUSHAB 12(¢ 
OC AE F BF 9A MOVZBL #223, 12(SP) 
C AE OF A PUSHAB 12( 
0 AE OF PUSHAB TERR TABLE_ADDR 
00 89 05 FB 00 CALLS #5, SSSMGSGET_TERM_DATA 
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RO, STAT § 
STATUS, 23 $ 

RET LL LENGTH 

FRAME 

23$ 

RET BUFFER, FRAME 
FRAME, #5 

FRAME, #8 

22$ 


#64, DESC 
BUF, DESC+4 
AME 


ACO 
#4, SYSSFAO 

Y 

$ 
cn 
a “nb Ro ocRs) 
, #0, #4, 20(R4) 


INDEX 
RET _BUFFER 


12(SP) 
ig Maa: 12¢SP) 


RM_T 

a. asencscer. TERM. DATA 
STATUS. 27s 
STATUS 


#1 
Sete te ni Teena 


0 
SET_VECTORCINDEX], SET_POSITION 
R J ome 


CTORCINDEX], RET_BUFFER, R1 


me POSITION) (R3) 
oe VECTORLINDEX], a(SP)+ 


(SET POSITION) CR3) 
wis VECTOR rt ta a(SP)+ 


NDEX 
#0, *asSnes INIT, TERM_TABLE 


RO 
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SETTERM 16-Sep-1984 01:10: AX=11 Bliss-32 V4.0-742 Pa 
Shi eboo 12-828-18 4 93:49:98 CLIUTL.SRCJSETTERM.832;1 ae 88 
31 5 1 ROUTINE log_results (data_buffer) : NOVALUE = 
1938 p BEGIN _— 
; 2001 0 8 1e4 
: O88 94 Functional description 
; 904 991 ; This routine tells the user whatever was set. 
; 09 i Inputs 
: 097 Soe : . DATA_BUFFER = full of all sorts of meaningful data 
: 2009 0 i Qutputs 
3; 2010 39 ! my Non 
2 sot) ee § i. 
; $13 100 2 
3; 2014 101 P 
; Bt? Ise data_buffer : REF VECTOR; 
: ote 104 2 LOCAL 
; 2018 105 desc : S$BBLOCKCdsc$c_s_bin], 
3; 2019 18 fao_buffer : vECTOREB}- 
3 : + 14 fao_desc : VECTOR(2); 
> 20 é 109 2! 
g Osi 119 Bind data_buffer to meaningful names. 
; 035 Wg bind_data; 
> 20 $ 114 2! 
3 . ; BS Initialize the descriptors 
; 080 119 Sinit_dyndesc (desc); ' Make a dynamic descriptor 
: 3h 118 fao_desc(1J = fao_buffer; ! Set up the address 
; 033 2120 2! 
: See : 1 : See if a specific terminal type was set. 
: 036 1 7 if .index GIR -1 
3; 203 124 THEN 
3 O38 125 BEGIN 
3; 2039 1 $ str$append(desc, .term$_namel.index]); 
3; 2040 1 strSappend(desc, SD_C ); 
: a ; 3 END; 
; be 130 2! 
3 2044 131 ! If this is an unknown terminal that is defined in 
3 Re? : ; TERMTABLE, use the name from the definition. 
; Oe? 134 2 iF .index LSS -1 
; pee 135 THEN 
3: 204 1 § BEGIN 
3; 2050 1 strS$append (desc, name_desc); 
3 2051 1 $ strS$append (desc, SD_COMMA); 
By fh gM 
+ 2054 141 ' 
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iec$een9ge 01:58:06 yARctT OL tan32 ye 05742 
! Go thru all 4 of the terminai flagwords, to pr ring showi 
H everything thet was changed. wa ogee? Seta § otter 
inNcR 4 FROR 0 TO term$_ttset_num - 1 D0 
Hey ttt set AND .term$_ttset_bitC.i]) NEQ 0 
Strge 
str$append(desc, .term$ ttset_keyl.iJ); 
strSappendidesc, §D.COMMA); 
END 
END; 
INCR_ i FROM 4 TO term$_ttcir_num - 1 00 


IF (.ttl_cle AND .term$_ttclr_bitl.i]) NEQ 0 
THEN 


BEGIN 
strhenpend(desc. .term$ ttclr_keyl.i]); 
ptrSappendidesc, SD_COMMA); 


END; 
INCR i FROM 0 TO term$_tt2set_num - 1 DO 
IF (.rt2_set AND .term$_tt2set_bitl.iJ]) NEQ 0 
BEGIN 
strseppendidesc, SD,COMMAYS ee 
~o 
INCR i — 2 TO term$_tt2clr_num - 1 DO 
al AND .term$_tt2cir_bitC.i]) NEQ 0 
shrhapsendteeed. .term$ tt2clr_keyl.il); 
strS$append(desc, SD_COMMA); ~ 
END; 
INCR i FROM 0 TO term$_ttset_num - 1 DO 
ol AND .term$_ttset_bitC.i]) NEQ 0 


MEWN $9 DOONAN tO OSNOuU Fur 


BEGIN 
str$append(desc, SD_NO); 
str$append(desc, .term$ ttset_keyl.i]); 
strSappend(desc, SD_COMMA); 
END; 
INCR i caer 4 TO term$_ttclr_num - 1 DO 


IF (.ttl_set AND .term$_ttclr_bitl.i]) NEQ 0 
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THE 
strS$append(desc, $ 
str$append(desc, . 
rr appendi(desc, S$ 

END; 


INCR_ i FROM O TO term$_tt2se 


™ 


SRLESRANLSS 


MEWUN—OOONOUVEWN OC OONOu 


BEGIN 
strS$append(desc, SD_ 
strS$append(desc, .te 
strSappend(desc, SD_ 
END; 
END; 
INCR i om 2 70 term$_tt2cl 


PORSPIPOIPEPININININRAINIPITUNINININININININN 


VRONURG RTD es 


str$append(desc, .te 
per senpenes dees. SD_ 


END; 


Mrr 


PUPP B® BP BEE EEE EAI WIL Ierrnnonnt 
MEAN 9 OD NO ALUN  O ODOM E WH O OONO 


' 
! 
; 
: Dec_Crt 
I 


AANA AAT IRIN ITI = an 
DONOUSWN—O”O WENO DONO VE WN (OOOO wry 


IF ( tt2$mdeccrt2 AND .decc 
BEGIN 


PUPP TIT BS EE PEE SE 


CONOUE WO 


str$append( desc, SD_NO 


APINLS 


IF (tt2$m_deccrt2 AND .deccr 
BEGIN 
str$append( desc, SD_NO 
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15 
1b-Sep-1 
14-Sep-1 

was ttclr.keyl. 12) 
rm r -i)); 
COMMA): 


t.num - 1 DO 


IF (,tt2_clr AND .term$_tt2set_bitl.i]) NEQ 0 
THEN 


); 
rm$_tt2set_keyl.i]); 
COMMA); 


r.num = 1 DO 


IF (.tt2 set AND .term$_tt2clr_bitl.i]) NEQ 0 
THEN 


strS$appendidesc, SD_NO); 


rm$_tt2clr_keyl.i)); 
COMMA); 


F ( tt2$m_deccrt AND .deccrt_set) NEQ 0 THEN 
BEGIN 


str$append( desc, SD_DEC_CRT) ; 
strSappend desc, SD_COMMA ) ; 


rt_set) NEQ 0 THEN 


str$append( desc, SD_DEC_CRT2) ; 
str Sappend desc, SD_COMMA ) ; 


IF (tt2$mdeccrt AND .deccrt clr) NEQ 0 THEN 
BEGIN 


) . 


str$append( desc, SD~DEC_CRT ) ; 
strSappend desc, SD-COMMA ) ; 


t.clr) NEQ 0 THEN 
) 3 


9c 12:09:00 EeCiun °SneSsetrenacasos1 


i Check the special parameters, the ones that take a parameter. 


'/DEC_CRT 


!/DEC_CRT2 


! /NODEC_CRT 


! /NODEC_CRT2 
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RUN SOWVA AR WI CORN AE WN HOBIE ARI DOOR IRR PU HO SONS RIOD 


vuvuv 


wvuvvD 


1 
1 
1 


No 


Sep-1 
Tes ~8ep-1984 


strbappendl desc, SD 
ate append( desc, SD 


i hatte 
if . flags{set$v_nopar] 
THEN 


Ao lt A ZASCID Palen, ); 
strSappend(desc, SD_ 


Fise IF .flags{set$v_odd] OR i eastneahe aaal 


BEGIN 

strS$append(desc, SD PARITY); 

strSe pend(desc, %ASCID '='5; 
flags(set$v_odd 

fe str$append’desc, term$_odd) 

ELSE strS$append(desc keras_ even); 

aterm SD_ COMMA ); 


' 

CREILL 

if .flags€set$v_cr) 
THEN 


, 
des 
(CT 


fao = ZALLOCATION( fao_bu 
$F ADL 'U 


= ZASCID ‘CRFIL tz 
= ih nw ~Gesc. 


= = acres “fi lLeO, 8>)); 


c{0) = 

cTRSTR 
OU 
oy TCEN 

PRMLST 

nd(desc, fao_desc); 


strS$appe 
END; = 
; frame size 
if _.flagsCset$v_frame) 
THEN 
BEGIN 
fao_desc(0 
SFAOL(CTRS 
TB 
T ao 


aopde Fs v0, 4>)); 


c. fao_desc); 


! 
dismiss parity errors 
if .flags€set$v_dismis) 
THEN 

BEGIN 


str$append(desc, 30 COMMAS nS PARITY ERRORS"); 


str$appendidesc, SD_C 
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hese -1984 :10: 

12-80 8=138e 93:09:98 
END 
ei! - flags(set$v_nodism] 
BEGIN 
strS$append(desc, ZASCID ‘NO DISMISS PARITY ERRORS‘); 
Per MePPORELCRSE « SD_COMMA) ; 


ELSE 
TH 


} LFFILL 
If .flags(set$v_lfJ 
THEN 
BEGIN 
fao desc(0] = ZALLOCATION(fao_buffer); 
SFAOL(CTRSTR = ZASCID "LFFILL=!UL,', 
OUTBUF = fao_desc, 
TLEN = fao_ desc 
PRMLST = XREF(.fi(1<8,8>)); 
strSappend(desc, fao_desc); 


Page size 
if .flags(set$v_page) 
THEN “— 


BEGIN 
fao_desc(0] = ZALLOCATION(fao_ buffer); 
SFAOL(CTRSTR = ZASCID ‘PAGE=!0L,', 

OUTBUF = fao_desc, 

OUTLEN = fao_desc 

PRMLST = BREF(. info_block(term$b_page])); 
strSeppend desc, fao_desc); 


Width 
if .flagsCset$v_width] 
THEN 
BEGIN 
fao_desc(0) = ZALLOCATION(fao_buffer); 
SFAOL(CTRSTR = ZASCID ‘WIDTH=TUL,', 
OUTBUF = fao_desc, 
OUTLEN = fao_ desc 
PRMLST = ZREF(.info_blockCterm$w_width])); 
strSappend(desc, fao_desc); 
END; 
: 
; Speed 
if - flags(set$v_speed) 
THEN 
BEGIN 
LOCAL 


speeds : VECTOR(2]; 


AX=11 Bliss-32 
CLIUTL.SRCJSETT 


V4.0-74 
Hance see 


Page 


70 
(12) 


| F 15 


VO4-600 1e-Sep-t98e $2:09:06  LeLTUtLosme set reRA. Osos 1 


; 7 fao.dess[0) = BAL) SCAT Oni feo but er); 
; d $ efdsi01 = tern$_spdblk .speed<0,8>3; 
; 7 THEN Speeds sf 2 -torad spgoikl.speed<8,8>) 
3 74 gLse speedslij = gheceds . 
; P 2375 FAOL(CTRSTR = ZASCID 'SPEED=(!AS,!AS),", 
3 P 16 OUTBUF = fao_desc, 
3 P 237 OUTLEN = fao_desc, 
r oe RMLST = speeds); 
; 4 strSappend(desc, fao_desc); 
3 Be : 
3 § Finally, signal an informational message. 
; 5 2 IF .descldsc$w_length] NEQ 0 
; BEGIN 
3 HH desc(dsc$w_length] = .desc(dsc$w_length] - 1; 
3 89 SIGNAL (setS_termset, 2, dev_desc, desc); 
3 90 END; 
3 91 RETURN; 
3 92 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
59 54 49 52 41 GF $5 pose P.ACR: .ASCII ee Se 
3443444 00204 P.ACQ: .LON 17694728 
0000000" 00208 ADDRESS P.ACR 
00 00 be D QO2DC P.ACT: .ASCII \=\<0><0><0> 
10E0001 O2EO0 P.ACS: .LONG 17694721 
ae * 002E4 -ADDRESS P.ACT 
00 2C 4C 55 21 3D 4€ 4C 49 4 O2E8 P.ACV: .ASCII VERE GT UL. \<0> 
10E000B O02F4 P.ACU: .LONG 176947351 
ee O2F8 -ADDRESS P.ACV 
00 JO 2C 4€ 55 21 3D 45 4D 4 46 OO2FC P.ACX: .ASCII VEO sAut- \<0><0> 
10EQO00A 00308 P.ACW: .LONG 17694730 
0000000" 0030C eADDRESS P.ACX 
20 59 54 49 $2 4G! 4 3 33 33 $3 ref 3 33 4 3 + P.ACZ: .ASCII \DISMISS PARITY ERRORS\<0><0><0> 
o1de00t8 0328 P.ACY LONG 17694741 
000000° eADDRESS P.ACZ 
49 52 41 50 20 53 33 $3 ref 33 $3 rf: $8 ra rH ; P.ADB eASCII \NO DISMISS PARITY ERRORS\ 
016001 48 P.ADA: .LONG 17694744 
0000 * 00 r+9 -ADDRESS P.ADB 
00 2C 4C 55 21 3D 4C 4€ 49 46 1600 4C¢ 2 Sant F “felt MoE ET bs SUL. \<0> 
00g60 y 26 . “ADDRESS P.ADD 
00 00 00 2C 4c 55 21 30 45 47 16 $s Sah ry be Ne AgE aut \<0><0><0> 
bo9600 9° 74° —« SADDRESS P.ADF 
00 00 2¢ 4C 55 21 3D 48 44 3 i ig B-ADH: ASCII \WIDTHs 3UL .\<0><0> 
§o0800 0° 8 ; “ADDRESS P.ADH 


Pee Se Se Se Se Se Se Se See Se Se Se Se Se Ge Se Se Be Be Se Be Be Be Oe Be Be Be 


15 
SETTERM 18-4 “19 :10: AX-11 Bliss-32 v4.0-742 
She bo0 ae teats ri ae eS capt ht hg pre eee 
29 53 41 #21 #2C 53 41 #21 #28 3 46 45 45 $0 Hs i P.ADJ: .ASCII \SPEED=(!AS,!AS),\ 


03060045, 1" P.ADI: .LONG 17694736 


“ADDRESS P.ADJ 
.EXTRN SYSSFAOL 

PSECT $CODES,NOWRT,2 
OFFC 00000 LOG_RESULTS: 


WO Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
B 0 0 G 8F 00 9902 MOVL #TERMS_TTSET_NUM-1, R11 
A G E MOVAB TERMS. TTSET_REY, R10 
9 00 9 6 9€ 0001 MOVAB TERMSTTSET “BIT. RO 
§ 000 006 9E 0001 MOVAB SYSSFAOL, R 
0 F 9€ 43 MOVAB SD_COMMA, R 
6 000000006 60 9€ 000 MOV STRSAPPEND, R6 
E C C2 0002A SUBL2 #60, SP 
06 =A p 00 MOVL paTA BUFFER, R2 
4 fs Ad 9€ 00031 MOVAB 28(R2), R& 
5 A 4 00035 MOVAB 40(R »* RS 
34 AE 020E00 9 8F DO 00039 MOVL  #34471936, DESC 
AE p4 0041 CLRL —~dDESC+ 
10 AF 14 =A ; 0044 MOVAB FAO BUFFER. FAO_DESC+4 
5 34 Ad 00 00049 MOVL  52(R2), R3 
15 19 00040 BLSS 
000000996004 pp O04F PUSHL TERMS$_NAMELR3) 
AE 9F 00056 PUSHAB DESC 
66 Q FB 00059 CALLS #2, STRSAPPEND 
bb 005¢ PUSHL 
38 «AE «OOF 0005E PUSHAB DESC 
46 9 FB 00061 CALLS 4&2, STRSAPPEND 
FFFFFFFE © 8F D1 00064 1$: CMPL =séR3, #1 
11 18 00068 BGEG 28 
44 A2 OF 9060 PUSHAB 68(R2) 
38 4=6AE «(OF 000 PUSHAB DESC 
66 Q Fé 0007 CALLS #2, STRSAPPEND 
bb 007 PUSHL R 
38 AE F 0007 PUSHAB DESC 
$6 0 FB 00078 CALLS #2, STRSAPPEND 
1 cE OO7E 28 MNEGL #1, I 
17 1 0081 BRB t 
6943 62 d§ 00 3 3$: BITL (R2), TERMS_TTSET_BITCI) 
ft 1 00 BEQL 4 
6A4 pd 9 PUSHL TERMS_TTSET_KEYLI) 
38 =6AE «OOF 0008C PUSHAB D 
66 Q FB OO08F CALLS #2, STRSAPPEND 
bb 92 PUSHL R 
38 «AE «(OF 00094 PUSHAB DESC 
F 97 CALLS #2, STRSAPPEND 
E5 F 9A 4$: AOBLEQ R11, I, 
OT OOOAL ~  S * Be 
0000000060043 04 A 03 Ons 5$: BITL 4(R2), TERMS_TTCLR_BITCI) 
006000996004 bb O0A PUSHL. TERMS$_TTCLR_KEY(I) 
AE 9F 000B PUSHAB DESC 
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(12) 


_—_—S_ 


4 0-742 
-11 Blis -32 v -832;1 
16-S00-1984 73:09:90 Eek iUre Ske Ssetrenn 
14-Sep-19 ' ceases 
ts 088 BUSH RP” 
4; DESC 
HAB PPEND 5$ 
A RA 66 38 BP 8 CALLS Hes STRSAPPEND Be 
. 6s A I , 
§ 000000006 ; f cB ene tR2). TERMS_TT2SET_BITEI 
i 06 7s BEOL T2SET_KEYEIJ 
43 e 4 i 00 PUSHL TERMS_T ; 
00000000600 09960045 BD 9000 CHS, 98. STRSAPPEN 
00000 9 A HA OE : ake DESC arte .s 
66 # ; oF OOEA CALLS ATERAS TI2SET-NUM=1, 1, 
0000s BF F aaro 2 nowt 108 TERMS_TT2CLR_BITCII 
e 8 Ds D008 98 A ee: » a TT2CLR_KEY 
043 “ & F 0106 PUSHL TERNS, - 
0000000060 09960045 pd 00108 PUSHAB ae. STRSAPPE 
000000996004 9F 901¢ CALLS 
2 DD 9011 Chics, 95) STRSAPPEND 1, 1. 98 
38 ig aay AOBLEO TERMS. TT2CLR_NUM-1, 
BF FS OOT1 108: RNEGL| IS I a 
T_BITE 
ooo00000G BF FS 001 H ee oe TERMS_TTSET_ 
6 He 88 SOlst PUSHAB SDN 
6943 1A 9F 00131 PUSHAB 3 STRSAPPEND ; 
pA? 9F 0184 BUSH. TERMS TTSET KEYCI 
66 oak DD 3 : PUSHAB M3. STRSAPPEND 
AE 9F 0015 CALLS 
66 * y OD sie PUSHAB #9, STRSAPPEND 
C 1, 
: 02 FS Soles 128: MOVE’ #5, Foe: 
33 Dd OOl4F ee TERMS_TTCLR_ 
38 8) dors. :  BITL (RB), 
0B 53 2 1 4 13$: BEQL 14 
0043 g tH 1 C PUSHAB SD eNO a 
000000006 A? 9F 00196 PUSHAB We sieareene 
38 PB O01e4 PUSHL TERMS_ 
28 bb gots? Sp eee 
. entees ° aed oF 196 CALLS = #, 
8 DD 00174 PUSHAB DESC RSAPPEND 1, 138 
: 38 179 cA, ATERMS-TICLR-NUM-1, 1, 
Fe 148: nol 
F 17¢ MNEGL 
3 000000006 ; CF if BRB s«#168 


ee 
Pete Se 
Sete Ge 

Bete Be 

Sete te 

Se Be Ge 

Be te Se 

Sete te 

Pete Be 

Pe See Sete Oe Oe 
ee 

Bete te 

Sete ee 

Bete Ge 

Sete ee 

Bete ee 

Sete te 

Pe ee ee 

Bete ee 


} 15 
-Sep-19 
46-Sep-19 


a 


0000000060043 0c ig 03 15$: 
8 A or 1 
A F 001 
; FB O019A 
eeces Veet pp i 
* 85 OB OOTAA 
38 A oF OIAC 
F 1AF 
CF 3 000000006 ; FS Oia 16$: 
9 11 00180 
0000000060043 08 ne oF Bier 17$: 
0 Ab 9F OO1CA 
oe Re 
ets 43 O13 
FB 00100 
DD OO1E 
38 ag 9F OO1E 
$6 0 4 OO1E 
CF 53 00000000G 8F F353 OO1E8 18$: 
he Boe 
$3 AE 9F 001F8 
66 03 FB OO1FB 
57 OD OOT1F 
38 8=6AE OOF 0209 
66 02 FB 0020 
11 3C—O A - : gt ; Be 19$: 
38 AE 9F O020E 
66 03 FB 00211 
57 DD 00214 
38 AE 9F 00 1g 
66 02 FB 0021 
1A 40 A2 - : 4 : I 20$: 
38 AE 9F 00224 
66 0¢ fe i 
$F 00 
4 0 
#8 
ft ° 218: 
F 4 
oF 4 
FB 6 $8 
OF 4 
9F 0024C 
FB 0024F 


Be 92:09:90 


CLIUTL.SRCJSE 
BITL 12(R2), TERMS_TT2SET_BIT 
8 \ee _TT2SET_BITCII 


NO 


D 
PUSHAB DESC 
#2, STRSAPPEND 
TEAMS_T*2SET_KEYCIJ 


PUSHAB 
CALLS ‘ » STRSAPPEND 

PUSHAB DESC 

CALLS F STRSAPPEND 

AOBLEQ #TERMS_TT2SET_NUM-1, I, 15$ 
MO Ht I 

BITL ~ 8(R2), TERMS_TT2CLR_BITCIJ 
PUSHAB $D_NO 


DESC 
CALLS oF STRSAPPEND 
PUSHL TERMS_TT2CLR_KEYCI) 


CALLS #2, STRSAPPEND 


R 
PUSHAB DESC 

a STRSAPPEND 
AQBLEQ #TERMS TT2CLR_NUM-1, I, 17% 


#29, 60(R2), T9$ 
SD _DEC_CRT 


D 
CALLS #2, STRSAPPEND 
HL OR 


HAB DESC 
CALLS w STRSAPPEND 
BB #36, 60(R2), 208 
PUSHAB Sp DEC_CRT2 
CALLS te. STRSAPPEND 
PUS R 

PUSHAB DESC 

CALLS # 
BB ’ 

SD 


STRSAPPEND 
$,°64(R2), 218 
NO 
DESC 
CALLS #2, STRSAPPEND 
SD DEC_CRT 
PUSHAB DESC 
CALLS #2, STRSAPPEND 


senna 228 


PUSHAB DESC 
CALLS #2, STRSAPPEND 
PUSHAB SD‘ DEC_CRT2 


pest 
CALLS #2, STRSAPPEND 


R 
PUSHAB DESC 
CALLS #2, STRSAPPEND 
8B #36, 

SD_N 


AX-11 Blis sitrinieses) 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se i Be Se Be Be Se me Be Be Se Se Se Se Se Se Se Se Se Be Ge Se Se Se Se Ss Se Se Be Se 


15 
1b-Se -1984 01:10: AxX-11 Bliss-32 v4.0-742 
12-308-138e 93:49:98 CLIUTL.SRCISETTERM.832;1 
57 po PUSHL 7 
38 AG F PUSHAB DESC 
66 0 Fe CALLS #2, TREAPPEND 
06 64 4 i A 22%:  6BC #4. (RO), 23$ 
0206 ¢7? OF PUSHAB P.ACQ 
11 0026 BRB 26$ 
94 64 0 23$ BBS #2, (R4), 24$ 
4 64 1 00268 BBC #3. (RS). 27 
FFs C? OF $ 24$: PUSHAB SD PARITY 
AE 9F 0 PUSHAB DESC 
66 02 FB 0027 CALLS #2, STRSAPPEND 
0219 ¢ 3F 0 46 PUSHAB P.ACS 
38 OO AE OOF A PUSHAB DESC 
66 Fe 027D CALLS #2, STRAPPEND 
08 64 i 0280 BBC #2. (R4), 25$ 
000000006 F 00 PUSHAB TERM$_ODD 
6 11 002BA RB 26$ 
000000906 9F 00 358: PUSHAB TERMS_EVEN 
8 AE 9F 00292 26$:  PUSHAB DESC 
BA Q FB 0029 CALLS #2, STRSAPPEND 
DD 00298 SHL R 
38 AE 9F O029A PUSHAB DESC 
66 02 FB 0029D CALLS #2, STRSAPPEND 
20 64 06 £1 002A0 27$: BC a6 (R4), 
OC AE 20 DO O02A4 MOVL #32, FAO. DESC 
6E 18 A2 9A 002A8 MOVZBL 24(R2), TSP) 
5E 0D OO2AC PUSHL SP 
10 AE 9F OO2AE PUSHAB FAO_DESC 
14 AE 9F 00281 PUSHAB FAO~DESC 
0224 ¢? 9F 002B4 PUSHAB P.ACU 
68 04 FB 00388 CALLS #4, SYSSFAOL 
C AE 9F 00288 PUSHAB FAO_DESC 
8 AE 9F OO02BE PUSHAB DES 
bb 02 FB 002C1 CALLS #2, STRSAPPEND 
22 64 OA £1 002C4 288: BBC ig. », 29$ 
OC AE 20 DO 002¢8 MOVL #32, FAO_DESC 
6E 14 A2 04 00 EF O02CC EXTZvV #0, #4, 20(R2), (SP) 
5E DD 002D2 PUSHL SP 
10 AE 9F 00204 PUSHAB FAO_DESC 
14 AE 9F 00207 PUSHAB FAO~DESC 
0238 ¢? 9F O02DA PUSHAB P.ACW 
68 04 FB 0 DE CALLS #4, SYSSFAOL 
o¢ AE 9F 00261 PUSHAB FAQ_DESC 
8 AE OF 0 £4 PUSHAB DES 
£4 0 Fe £7 CALLS #2, STRSAPPEND 
06 64 0 O2EA 29% BBC wii, (Rd), 30$ 
0258 Cc? OF 00 EE PUSHAB P.ACY 
8 11 OOF BRB 31$ 
12 64 ¢ f O2F4 30$ BBC #12, (R4), 32% 
0278 C? SF 002F8 PUSHAB P.ADA 
38 AE OOF 0 FC 318 PUSHAB DESC 
66 9 FB OOOFF CALLS #2, STRSAPPEND 
DD 0030 PUSHL R 
38 «AE OOF 00 PUSHAB DESC 
bh Fe 0307 CALLS #2, STRSAPPEND 
20 64 E1 0030A 32% BBC #5. (R4), 338 
Oc AE 0 DO 0030E MOVL #32, FAO_DESC 


kK 15 
SETTERM 16-Sep-1 :10: AX-11 Bliss-32 V4.0-742 
$b. ~b00 13-808-1 382 93:09:58 CLIUTL.SRCJSETTERM.B32;1 
6E 19 A2 9A 0031 MOVZBL 25(R2), (SP) 
SE DD 0031 PUSHL $P 
10 AE 9F 0031 PUSHAB FAO_DESC 
14 AE F 00318 PUSHAB FAO-DESC 
028¢ 9F 0031 SHAB  P.ADC 
68 4 FB CALLS #4, SYSSFAOL 
of AE 3 0 SHAB FAO_DESC 
AE OF 8 5 pest 
66 FB 0 B CALLS #2, STRSAPPEND 
20 64 £1 5 33$ ¢ (R4), 34$ 
OC AE Q pO VL #32, FAO DESC 
6E 07 AS OA MOVZBL 7(R5), (SP) 
SE 0D A PUSHL SP 
10 AE 9F 0033C PUSHAB FAO_DESC 
14 AE OF 0 F PUSHAB FAO DESC 
02A0 C? 9F 42 SHAB  P.ADE 
68 04 FB 0034 CALLS #4, SYSSFAOL 
C AE 9F 00349 SHAB FAO_DESC 
8 AE OF 00 4C SH Dest 
64 0 FB F CALLS #2, STRSAPPEND 
20 01 A& £9 00352 34$: BLBC 1(R4), 35$ 
Oc AE 20 b0 0356 VL #32, FAO DESC 
6E 02 AS 3C 0035A mMov2wL 2(R5), (SP) 
SE DD 0035 PUSHL SP 
10 AE 9F 00 PUSHAB FAO_DESC 
14 AE 9F 0036 PUSHAB FAO~DESC 
0284 C? 9F 00366 PUS P.ABG 
68 04 FB O036A CALLS #4, SYSSFAOL 
C AE 9F 00 $0 SHAB FAO_DESC 
8 AE OF 003 PUSHAB Dest 
66 0 Fe 0037 CALLS #2, STRSAPPEND 
64 9 90376 35$: TSTB = (RA) 
40 18 0037 BGEQ © 38$ 
oc A 2 po 00 7A MOVL #32, FAO_DESC 
5 10 A2 9a 00 43 MOVZBL 16(R2), RO 
04 AE 0000000060040 D0 0038 MOVL TERMS SPDBLKCROJ, SPEEDS 
5 11 A2 9A 00388 MOVZBL 17(R2J, RO 
08 i3 038F BEQL 36$ 
08 AE 0000000060040 04 0 31 MOVE TERMS_SPDBLKCROJ, SPEEDS +4 
08 AE 04 AE 00 0039C 368: MOVL SPEEDS, SPEEDS+4 
04 AE 9F OO3A1 37$:  PUSHAB SPEEDS 
10 AE 9F O03A4 PUSHAB FAO_DESC 
14 AE OF 0 A? PUSHAB FAO™DESC 
02c¢ OF OO3AA PUSHAB P.ADI 
68 4 FB 99 AE CALLS #4, SYSSFAOL 
C AE 9F 00381 PUSHAB FAQ_DESC 
8 AE 9F 09384 PUSHAB gst 
66 02 FB 00387 CALLS #2, STRSAPPEND 
34 AE BS OO3BA 38%: TSTW bese 
18 13 00380 BEQL $ 
4 AE 2 : BF DECW DESC 
4 AE 9F 003C2 PUSHAB ; 5¢ 
0 Ad OF 0 ce PUSHAB 32(R2) 
DD C PUSHL # 
000000006 8F DD 0 CA PUSHL #SETS$_TERMSET 
000000006 00 4 FB 00300 CALLS #4, LIBSSIGNAL 


PHS eSe Se Se Se Se Se Be Se Ge Se Se Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Se Se Se Se Ss Se Se Be Se Se Se Se Se Se Be Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se 


SI 


: Routine Size: 984 bytes, 


04 00307 39$: 
Routine Base: SCODES + 1028 


ifBeo-t9ge 01:39:08 


RET 


| 
cUiutLesnesetrenmcess1 = PMP BT 


: 2392 | 


M15 
We-Sep-t9be 12:09:00 Lekiun sae Sserrenacasest rom 


-EXTRN LIBSSIGNAL 


; PSECT SUMMARY 
3 Name Bytes Attributes 

: SOWNS 33 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 
: $CODES 5123 NOVEC.NOWRT, RD; EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


: eoceee== Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255$DUA28: CSYSLIBIJLIB.L32;1 18619 120 0 1000 00:02.0 


: Information: 1 


3; Warnings: 0 

3; Errors: 0 

3 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SETTERM/OBJ=OBJ$:SETTERM MSRC$:SETTERM/UPDATE=(ENHS: SETTERM) 
Size: 5123 code + 1168 data bytes 
Run T : 


: me: 
; Elapsed Time: 05: 3:01. 
; Lexenes/CPU-Rin: 21233 


. penery Oe sed: 464 pages 
; Compilation Complete 
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